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FOREWARD 


This  final  repo,  t  was  prepared  by  the  Columbus  Laboratories  of 
Battelle  Memorial  Institute,  Columbus,  Ohio,  for  the  Structures  and 
Dynamics  Division,  Air  Force  Flight  Dynamics  Laboratory,  Wright-Patterson 
Air  Force  Base,  Ohio.  The  work  was  performed  under  Contract  No. 
F-33615-75-C-3125,  which  was  initiated  under  Project  No.  2401,  "Structures 
and  Dynamics",  Task  No.  02,  "Design  and  Analysis  Methods  for  Aerospace 
Vehicle  Structures".  Initially,  Mr.  L.  Bernier  (FBR)  was  the  AFFDL 
project  engineer  for  this  effort,  after  which  Mr.  B.H.  Groomes  (FBR)  was 
assigned  the  responsibility. 

STAGING,  as  described  in  this  report,  represents  a  three-year 
combined  Air  Force-Navy  effort,  with  specific  support  and  contributions 
from  Dr.  Charles  P.  Porier,  Chief,  Scientific  Systems  Analysis  Branch,  ASD 
Computer  Center,  Wright-Patterson  Air  Force  Base,  Ohio,  Messers.  James  M. 
McKee  and  Michael  E.  Golden,  Computation  Mathematics  and  Logistics 
Department,  Code  1844,  Mr.  Paul  Mayer  and  Miss  Jane  A.  Figula,  Structures 
Department,  Code  1730.5,  The  David  W.  Taylor  Naval  Ship  Research  and 
Development  Center,  Bethesda,  Maryland.  The  technical  graphics  expertise 
of  these  government  researchers  are  gratefully  acknowledged. 

The  report  consists  of  four  volumes.  Volume  I,  "Final  Summary 
Report",  presents  an  overview  of  the  capabilities  of  the  STAGING 
(STructural  Analysis  via  Generalized  INteractive  Graphics)  system.  Volume 
II,  "Users  Guide",  gives  detailed  instructions  on  how  to  use  STAGING  for 
finite  element  analysis.  Volume  III,  "System  Manual",  describes  the 
internal  structure  of  STAGING  and  details  procedures  for  installation  and 
Maintainance  of  the  System  on  CDC  CYBER  and  6000  series  mainframe 
computers.  Volume  IV,  "Appendices  to  the  System  Manual",  includes  lists 
of  STAGING  procedures,  loader  directives  and  cross-referenced  tables  of 
all  entry  names  that  occur  in  STAGING. 

The  program  manager  of  this  development  was  Dr.  L.  E.  Hulbert  of 
the  Transportation  and  Structures  Department.  He  was  supported  by  N.  D. 
Ghadiali  of  the  same  department  and  by  a  number  of  specialists  from  the 
Computer,  Information  Systems,  and  Education  Department  including: 


iii 


f 


E.  Edwards  K.  Cadmus 

D.  Kasik  C.  Scofield 

W.  Young  F.  Orobot 

Kevin  Cadmus  was  a  major  contributor  to  the  preparation  of  this 

volume. 

The  work  reported  herein  was  conducted  during  the  period  of  June 
28,  1976  through  June  1979.  Some  work  on  STAGING  was  carried  out  under 
contract  F33615. 

The  present  report  was  submitted  for  publication  in  September,  1979. 
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APPENDIX  A 


STAGING  PROCEDURES 


This  section  contains  listings  of  various  STAGING  procedures.  In 
most  cases  two  versions  of  each  procedure  are  provided.  The  first,  called 
the  "PROFIL"  version,  is  written  in  the  University  of  Washington  Control 
Language.  The  second,  called  the  "PROCFIL"  version,  is  written  in  the  standard 
CYBER  Control  Language.  Below  is  a  list  of  the  names  of  the  procedures  provided 
in  this  appendix: 

A 

C 

R 

STAGING 

MENUGENABS 

MPDBGENABS 

SUPPORTLIB 

MENUGEN 

MENUTABLE 

MPDBNEW 

MPDBADD 

STAGINGGEN 

XGPRIME 

UPDATE 

NEWLIB 


PROFIL  VERSION 


A(*LFN=,*PFN1=,*PFN2=,«PFN3=,#PFN4=,»ID=STAGING3) 

/* 

/*  ATTACH  A  PERMANENT  FILE 

/* 

RETURN ( *LFN ) 

IFC(NE,*PFN1  ,  ,L1 ) 

ATTACH(«LFN,$_»PFN1_»PFN2_*PFN3_*PFN4_$,ID=*ID,PW=XR) 

ELSE(LI) 

ATTACH ( *LFN , ID=*ID ,PW=XR ) 

ENDIF(LI) 

REVERT. 

EXIT(S) 

REVERT( ABORT) 


PROCFIL  VERSION 

.PROC ,A ,LFN= ,PFN1= ,PFN2= ,PFN3= ,PFN4= ,ID=STAGING3 . 

* 

ATTACH  A  PERMANENT  FILE 

« 

RETURN(LFN) 

ATTACH ( LFN , PFN  1_PFN2_PFN3_PFN4 , #ID=ID , PW=XR ) 
REVERT. 

EXIT(S) 

REVERT (ABORT) 


Figure  A-l. 


Procedure  A 


/ 
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PROFIL  VERSION 


C(*LFN= ,*PFN1= , *PFN2= , *PFN3= , *PFN4= , *ID=STAGING3 ) 

/« 

/»  CATALOG  A  PERMANENT  FILE 

/* 

IFC(EQ,*PFN1  ,  ,L1) 

CATALOG ( *LFN , ID=*ID,XR=XR ,PW=XR ,RP=999) 

ELSE( LI ) 

CATALOG ( *LFN , $_#PFN 1_*PFN2_*PFN3_*PFN4_$  ,ID=*ID,XR=XR,PW=XR,RP=999) 
ENDIF(LI) 

REVERT. 

EXIT(S) 

IFC(EQ ,*PFN1 , ,L3) 

BEGIN , P , "FILE , *LFN , ID=«ID . 

CATALOG(*LFN ,ID=*ID ,XR=XR ,PW=XR ,RP=999) 

ELSECL3) 

BEGIN, P,»FILE,*PFN1 ,«PFN2  ,«PFN3  ,»PFN4 ,ID=«ID . 

CATALOG ( *LFN , $  _*PFN 1_«PFN2_«PFN3_*PFN4_$ , IDi*ID , XR=XR , PW=XR , RP= 999 ) 
ENDIF(L3) 

SKIP(1) 

EXIT(S) 

REVERT. 


PROCFIL  VERSION 

. PROC , C , LFN= , PFN 1 =  , PFN2= , PFN3= ,  PFN4  = ,ID=STAGING3  . 

« 

.*  CATALOG  A  PERMANENT  FILE 

» 

CATALOG ( LFN , PFN  1_PFN2_PFN3_PFN4 , «D=ID ,XR=XR , PW=XR , RP=  999 ) 
REVERT. 

EXIT(S) 

RETURN(JUNK) 

PURGE ( JUNK , PFN 1_PFN2_PFN  3_PFN4 , #ID= ID , PW=XR , LC= 1 ) 

RETURN( JUNK) 

CATALOG(LFN,PFN1_PFN2_PFN3_PFN4 ,#ID=ID,XR=XR ,PW=XR ,RP=999) 
SKIP(L4) 

EXIT(S) 

ENDIF(L4) 

REVERT . 


Figure  A-2.  Procedure  C 
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PROFIL  VERSION 


R(*LFN) 

/* 

/*  REQUEST  A  PERMANENT  FILE 

/* 

RETURN («LFN) 

REQUEST ( *LFN , *PF ) 

SKIP(  1) 

EXIT(S) 

REVERT. 


PROCFIL  VERSION 

. PROC , R ,LFN= . 

.»  REQUEST  A  PERMANENT  FILE 

* 

RETURN (LFN) 

REQUEST ( LFN , *PF ) 

SKIP(LI) 

EXIT(S) 

ENDIF(LI) 

REVERT . 


Figure  A-3.  Procedure  R 


PROFIL  VERSION: 

STAGING( *CY= 1 ,*ETL=500) 

/• 

/•  RUN  (COMPIO)  VERSION  OF  STAGING  SYSTEM 

/* 

RETURN (ST) 

RETURN( PROCFIL) 

ATTACH(PROCFIL,DUMMYPROCFILFORBATTELLE,ID=STAGING3,CY=1) 
ATTACH ( ST , STAGINGABS , ID=ST AGING3 , CY=«CY ) 

ETL(*ETL) 

ST. 

RETURN (GLOBAL , EXEC ,DANDE , PREP .POST , MATER .PROCFIL ) 

SKIP(1) 

EXIT(S) 

REVERT. 


PROCFIL  VERSION 

.PROC, STAGING, CY=1 ,ETL=300. 

_ « 

.*  RUN  STAGING3  VERSION  OF  STAGING3 

* 

RETURN (ST) 

ATTACH ( ST , STAGINGABS , ID=STAGING3 , #CY=CY ) 
#ETL(ETL) 

ST. 

RETURN ( ST , MATER , GLOBAL , EXEC .DANDE , PREP .POST ) 
SKIP(LI) 

EXIT(S) 

ENDIF(LI) 

REVERT. 


Figure  A-4.  Procedure  STAGING 
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If . . 


PROFIL  VERSION: 

MENUGENABS. 

/* 

/*  CREATE  NEW  MENU  GENERATOR  ABSOLUTE 

/* 

BEGIN,A,*FILE,BIN,MENUGENBIN. 

BEGIN , A ,*FILE , SUPLIB .SUPPORTLIB . 

BEGIN, R, “FILE, MENG. 

LOAD(BIN) 

LDSET(LIB=SUPLIB) 

NOGO(MENG) 

BEGIN, C,*FILE,MENG, MENUGENABS. 

SKIP( 1) 

EXIT(S) 

RETURN(MENG,BIN,SUPLIB) 

REVERT. 

PROCFIL  VERSION 

.PROC, MENUGENABS, TYPE=REGEN. 

.*  CREATE  NEW  MENU  GENERATOR  ABSOLUTE 

IFE , $TYPE$ . EQ . $REGEN$,L2 . 

BEGIN , A .PROCFIL ,OLDPL .MENUGENPL . 

BEGIN , A , PROCFIL , IN .MENUGENIN . 

BEGIN , A , PROCFIL , BINOLD .MENUGENBIN . 

BEGIN, R, PROCFIL, NEWPL. 

BEGIN , R , PROCFI L , INNEW . 

BEGIN , R .PROCFIL , BINNEW . 

UPDATE(N,I=IN,L=1 ) 
FTN(I,Z,R=3,OPT=2,S=CPCTEXT) 

COPYL( BINOLD, LGO, BINNEW, ,RA) 

BEGIN , C , PROCFIL .BINNEW .MENUGENBIN . 
COPYBF(#DATA, INNEW) 

BEGIN , C , PROCFIL , INNEW .MENUGENIN . 

BEGIN , C , PROCFIL , NEWPL .MENUGENPL . 

RETURN( OLDPL , NEWPL , BINOLD , LGO , BINNEW , INNEW) 
ENDIF(L2) 

BEGIN , A , PROCFIL , BIN .MENUGENBIN . 

BEGIN, A, PROCFIL, SUPLIB .SUPPORTLIB . 

BEGIN , R , PROCFIL ,MENG . 

LOAD(BINNEW) 

LDSET(LIB=SUPLIB) 

NOGO(MENG) 

BEGIN , C , PROCFIL ,MENG , MENUGENABS . 

SKIP(LI) 

EXIT(S) 

ENDIF(LI) 

RETURN(MENG, BIN .SUPLIB) 

REVERT. 

.DATA 

•ID  MENUNEW 
.EOR 


Figure  A-5.  Procedure  MENUGENABS 
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PROFIL  VERSION 

MPDBGENABS(*TYPE=ADD) 

/* 

/*  GENERATE  NEW  MPDB  ABSOLUTE  (MPDBNEWABS  OR  MPDBADDABS) 

/« 

BEGIN , A , ‘FILE , OLDPL , STAGINGPL . 

UPDATE(Q,I=«DATA,L=0) 

FTN(I,R=3,B=BIN) 

BEGIN , A , *FILE , LIB , SUPPORTLIB . 

LIBRARY (LIB) 

LOAD(BIN) 

NOGO(ABS) 

BEGIN , C , *FILE , ABS ,MPDB ,*TYPE , ABS . 

REVERT. 

/DATA 
•ID  MPDB 
*C  MPDB_*TYPE 
/EOR 


PROCFIL  VERSION: 

.PROC .MPDBGENABS ,TYPE=NEW . 

.*  GENERATE  NEW  MPDB  ABSOLUTE  (FOR  CREATE  OR  REVISE) 

BEGIN , A , PROCFIL , OLDPL .STAGINGPL . 

UPDATE(Q,I=#DATA ,L=0) 

FTN(I,R=3,B=BIN) 

BEGIN , A .PROCFIL , LIB .SUPPORT ,LIB . 

LIBRARY (LIB) 

LOAD(BIN) 

NOGO(ABS) 

BEGIN , C , PROCFIL , ABS , MPDB .TYPE , ABS . 

SKIP(LI) 

EXIT(S) 

ENDIF(LI) 

REVERT. 

.DATA 

•ID  MPDBGEN 
•C  MPDB_TYPE 
.EOR 


Figure  A-6.  Procedure  MPDBGENABS 
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SUPPORTLIB. 

/* 

/*  COMBINE  LIBRARIES  TO  FORM  NEW  STAGING  SUPPORT  LIBRARY 

/* 

BEGIN ,A ,*FILE ,BIN1 .DATABASE, BIN. 

BEGIN , A , *FILE , BIN2.REC0VERY.BIN . 

BEGIN, A, *FILE, BIN3.XYGRAPH.BIN. 

BEGIN, A, "FILE, BIN4.PERMFILE.BIN. 

BEGIN , A ,«FILE,BIN5 .CONVERSION .BIN . 

BEGIN , A , “FILE , BIN6 .NEWCOMPIO , BIN . 

EDITLIB( I=*DATA ,L=0) 

BEGIN , C , *FILE , LIB .SUPPORTLIB . 

REWIND(LIB) 

ITEMIZE(LIB.E) 

SKIP(1) 

EXIT(S) 

RETURN(BIN1 ,BIN2 ,BIN3 ,BIN4 ,BIN5 ,BIN6 ,LIB) 

REVERT. 

/DATA 

LIBRARY (LIB, NEW) 

ADD( * ,BIN1 ) 

ADD( *  ,BIN2 ) 

ADD(*,BIN3) 

ADD(«,BIN4) 

ADD(*,BIN5) 

ADD(*,BIN6) 

FINISH. 

ENDRUN. 

/EOR 


Figure  A-7A.  Procedure  SUPPORTLIB  (PROFIL  Version) 
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Figure 


.  PROC , SUPPORTLIB . 

.*  COMBINE  LIBRARIES  TO  FORM  NEW  STAGINGS  SUPPORT  LIBRARY 

* 

BEGIN , A ,PROCFIL ,BIN1 .DATABASE ,BIN . 

BEGIN , A , PROCFIL , BIN2 , RECOVERY , BIN . 

BEGIN , A .PROCFIL ,BIN3 .XYGRAPH.BIN . 

BEGIN , A , PROCFIL , BIN4 , PERMFILE , BIN . 

BEGIN , A .PROCFIL ,BIN5 .CONVERSION .BIN . 

BEGIN, A, PROCFIL, BIN6.NEWCOMPIO.BIN. 

BEGIN, R, PROCFIL, LIB. 

EDITLIB(I=#DATA.L=0) 

BEGIN ,C, PROCFIL , LIB .SUPPORTLIB. 

REWIND(LIB) 

ITEMIZE(LIB.E) 

SKIP(LI) 

EXIT(S) 

ENDIF(LI) 

RETURN ( BIN 1 ,BIN2 ,BIN3 ,BIN4 ,BIN5 ,BIN6 ,LIB) 

REVERT. 

.DATA 

LIBRARY (LIB, NEW) 

ADD(*,BIN1 ) 

ADD(»,BIN2) 

ADD(«,BIN3) 

ADD(*,BIN4) 

ADD(*,BIN5) 

ADD(»,BIN6) 

FINISH. 

ENDRUN. 

,EOR 


A-7B.  Procedure  SUPPORTLIB  (PROCLIB  Version) 
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PROFIL  VERSION 


MENUGENABS. 

/* 

/»  CREATE  NEW  MENU  GENERATOR  ABSOLUTE 

/* 

BEGIN ,  A , »FILE , BIN .MENUGENBIN . 

BEGIN , A ,*FILE,SUPLIB .SUPPORTLIB . 
BEGIN, R, “FILE, MENG. 

LOAD(BIN) 

LDSET ' LIB=SUPLIB ) 

NOGO(MENG) 

BEGIN, C,*FILE,MENG, MENUGENABS. 

SKIP( 1 ) 

EXIT(S) 

RETURN(MENG ,BIN  jSUPLIB) 

REVERT. 


PROCFIL  VERSION 

. PROC .MENUGEN , PREFIX=EXEC . 

* 

.«  CREATE  NEW  MENUS  FOR  NEW  COMMAND  TREE 

* 

RETURN(TAPE9,TAPE31 ,TAPE32) 

BEGIN , R , PROCFIL , MENUS . 

BEGIN, R, PROCFIL ,TAPE10. 

BEGIN , A , PROCFIL ,MENG .MENUGENABS . 

BEGIN , A , PROCFIL ,TAPE5 , PREFIX .MENU , SOURCE . 
MENG(PL=777777) 

BEGIN , C , PROCFIL ,TAPE1 0 .PREFIX .MENUDRIVER . 
BEGIN , C , PROCFIL .MENUS .PREFIX .MENU . 

SKIP(L1 ) 

EXIT(S) 

ENDIF(LI) 

RETURN ( T APE9 .TAPE31 .TAPE32) 

REVERT. 


Figure  A-8.  Procedure  MENUGEN 
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MENUTABLE. 

/* 

/*  REGENERATE  THE  TABLE  OF  MENU  DRIVERS 

/* 

BEGIN , A , *FILE , OLDPL , STAG INGPL . 

BEGIN, R,*FILE, TABLE. 

BEGIN , A , *FILE , IN , GLOBAL , MENUDRIVER . 
UPDATE(Q,I=IN,L=0) 

FTN( I , Z ,R=3 ,B=TABLE ,S=0) 

BEGIN, A, *FILE, IN, EXEC, MENUDRIVER. 
UPDATE(Q ,I=IN ,L=0 ) 

FTN( I , Z ,R=3 ,B=TABLE,S=0) 

BEGIN, A, »FILE, IN, PRE, MENUDRIVER. 

UPDATE(Q,I=IN,L=0) 

FTN(I,Z,R=3,B=TABLE,S=0) 

BEGIN , A , *FILE , IN , POST , MENUDRIVER . 
UPDATE(Q  ,I=IN ,L=0) 

FTN( I , Z ,R=3 ,B=TABLE,S=0) 

BEGIN , A , *FILE , IN .DISPLAY , MENUDRIVER . 
UPDATE(Q,I=IN,L=0) 

FTN ( I , Z ,R=3 ,B=TABLE,S=0) 

BEGIN, C,»FILE, TABLE, MENUTABLE. 
RETURN(TABLE) 

SKIP(1) 

EXIT(S) 

REVERT. 


Figure  A-9A.  Procedure  MENUTABLE  (PROFIL  Version) 
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.PROC , MENUTABLE. 

_ « 

.«  regenerate  the  talbe  of  menu  drivers 

BEGIN , A .PROCFIL ,OLDPL .STAGINGPL. 

BEGIN , R , PROCFIL .TABLE. 

BEGIN , A , PROCFIL, IN .GLOBAL .MENUDRIVER . 
UPDATE( Q , I=IN , L=0) 

FTN ( I , Z , L=TABLIST , R=3 , B=TABLE ,S=0 ) 

BEGIN , A , PROCFIL , IN .DISPLAY .MENUDRIVER . 
UPDATE(Q , I=IN ,L=0) 
FTN(I,Z,L=TABLIST,R=3,B=TABLE,S=0) 
BEGIN, A, PROCFIL, IN, EXEC, MENUDRIVER. 
UPDATE(Q,I=IN,L=0) 
FTN(I,Z,L=TABLIST,R=3,B=TABLE,S=0) 
BEGIN, A, PROCFIL, IN, PRE, MENUDRIVER. 
UPDATE(Q , I=IN ,L=0 ) 

FTN ( I , Z ,L=TABLIST , R=3 , BsTABLE ,S=0) 

BEGIN , A , PROCFIL , IN , POST .MENUDRIVER . 
UPDATE(Q ,I=IN ,L=0) 

FTN( I , Z ,L=TABLIST , R=3 ,B=TABLE,S=0 ) 

BEGIN , C , PROCFIL , TABLE , MENUTABLE . 
RETURN(TABLE) 

SKIP(LI) 

EXIT(S) 

ENDIF(LI) 

REVERT. 


Figure  A-9B.  Procedure  MENUTABLE  (PROCFIL  Version) 


FIGURE  A.9B  -  PROCEDURE  MENUTABLE  (PROCFIL  VERSION) 


PROFIL  VERSION 


MPDBADD , 

/* 

/*  MODIFY  STAGING  MPDB  WITH  ADDITIONS  OR  REVISIONS  ON  TAPE  1 

/* 

BEGIN , A , *FILE, MATER , MPDB . 

BEGIN , A , *FILE, ABS .MPDBADDABS . 

ABS. 

EXTEND(MATER) 

RETU RN ( MATER, T APE  1 ,ABS) 

REVERT. 


PROCFIL  VERSION 

.PROC .MPDBADD. 

« 

.*  MODIFY  STAGING  MPDB  WITH  ADDITIONS  OR  REVISIONS  ON  TAPE  1 

BEGIN , A , PROCFIL , MATER , MPDB . 

BEGIN , A .PROCFIL , ABS , MPDBADDABS . 

ABS. 

EXTEND( MATER) 

RETURN (MATER .TAPE 1 ,ABS) 

REVERT. 


Figure  A-ll.  Procedure  MPDBADD 
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/ 


WPVERSION . 

/* 

/»  CREATE  NECESSARY  MODIFICATIONS  FOR  WRIGHT-PATTERSON  AFB 

/» 

RETURN( BIN1 ,BIN2,BIN3) 

RETURN(IN1 ,IN2,IN3) 

COPYBR(*DATA,IN1) 

C0PYBR(«DATA,IN2) 

COPYBR(«DATA,IN3) 

REWIND(IN1 ,IN2,IN3) 

RETURN (*DATA) 

BEGIN, A, ‘FILE, OLDPL, 3TAGINGPL. 

UPDATE( I  =  IN1 ,L= 1 ) 

FTN (I , Z ,R=3 ,B=BIN1 ) 

BEGIN , A , *FILE, OLDPL, INTERTEKPL . 

UPDATE ( I=IN2 ,L= 1 ) 

FTN (I ,Z,R=3,B=BIN2) 

BEGIN , A , *FILE , OLDPL , PERMFILEPL . 

UPDATE(I=IN3,L=1) 

FTN (I , Z , R=3 , B=BIN3 , S=SCPTEXT , S=PFMTEXT , S=IOTEXT ) 
REWIND(BIN1 ,BIN2,BIN3) 

BEGIN, R,*FILE, BIN. 

COPYBR(BIN1 , BIN, 999) 

COPYBR(BIN2 , BIN, 9 99) 

COPYBR(BIN3 ,BIN ,999) 

BEGIN, C,«FILE, BIN, WPAFB .MODBIN . 

ITEMIZE(BIN,E) 

SKIP(1) 

EXIT(S) 

RETURN ( OLDPL , COMPILE , BIN , BIN  1 , BIN2 , BIN3 ) 

REVERT. 

/DATA 

•ID  WPAFB1 
*D  GLOINT . 3 1 

DATA  IAC/7HD700370/ 

/EOR 

•ID  WPAFB2 
•I  GINIT .2 1 

CALL  SETBAUD( 120) 

/EOR 

•ID  WPAFB3 
•D  PERMFIL.717 ,721 
*D  PERMFIL .724 


SA2 

LSD 

GET  LEFT  SHIFTED 

ACCOUNT  AND 

LX  2 

48 

FLOP  IT  OVER  FOR 

WPAFB 

BX6 

X1+X2 

•D  PERMFIL.772,774 
*D  PERMFIL.699 
•D  PERMFIL.416 
•I  PERMFIL.359 

EQ  AC=ID  DONT  BOTHER  WITH  ACCOUNT  CHECK 

*D  USERTBL.2,264 

SUBROUTINE  USERTBL( IARRAY) 

Figure  A-I2 .  Procedure  WPVERSION  (PROFIL  Only) 
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STAGINGGEN(*MAP=PART,*BIN=NONE) 

/« 

/•  GENERATE  (COMPIO)  VERSION  OF  STAGING 

/* 

BEGIN , A ,*FILE, TABLE, MENUT ABLE. 

COPYBR(TABLE,LOADIN ,99 ) 

IFC(NE,*BIN,N0NE,L2) 

REWIND(*BIN) 

COPYBR(*BIN .LOADIN ,99) 

ENDIFU2) 

BEGIN, R,«FILE, ST. 

BEGIN , A ,*FILE,SEGDIR ,SEGDIR . 

BEG  IN, A , *FILE, LIB, STAG INGLIB. 

BEGIN , A ,* FILE , SUP LIB , SUP PORTLIB . 

BEGIN , A , *FILE,GRLIB .INTERTEK ,LIB. 

LIBRARY (LIB,SUPLIB) 

MAP( *MAP) 

RFL(67700) 

SEGLOAD( I=SEGDIR ,B=ST) 

LOAD(LOADIN) 

LDSET(PRESET=ZERO ,LIB=GRLIB) 

NOGO. 

BEGIN ,C, “FILE, ST, STAGINGABS . 

SKIP(1) 

EXIT(S) 

LIBRARY. 

RETURN( *BIN .SEGDIR ,LIE ,GRLIB , SUPLIB, ST , LOADIN .TABLE) 
REVERT. 


Figure  A-13A. 


Procedure  STAGINGGEN  (PROFIL  Version) 


.PROC .STAGINGGEN ,MAP=PART . 

_  * 

.»  GENERATE  STAGING  ABSOLUTE 

BEGIN , A .PROCFIL, TABLE, MENUTABLE. 

COP YBR( TABLE, LOADIN ,99) 

BEGIN , A , PROCPIL , WPMODS , WPMODSBIN . 

COPYBR( WPMODS, LOADIN, 99) 

REWIND(LOADIN) 

BEGIN, R.PROCFIL, ST. 

BEGIN , A , PROCFIL ,SEGDIR ,SEGDIR . 

BEGIN, A, PROCFIL, LIB, STAGING, LIB. 

BEGIN , A .PROCFIL, SUPLIB, SUPPORT ,LIB . 

BEGIN , A , PROCFIL , GRLIB , INTERTEK , LIB . 

LIBRARY(LIB, SUPLIB) 

#MAP(MAP) 

RFL(67700) 

SEC-LOAD  ( I=SEGDIR ,  B=ST ) 

LOAD(LOADIN) 

LDSET ( PRESET =ZERO,LIB=GRLIB) 

NOGO. 

BEGIN , C , PROCFIL , ST , STAGING , ABS . 

SKIP (LI ) 

EXIT(S) 

ENDIF(LI) 

LIBRARY. 

RETURN (BIN, SEGDIR, LIB, GRLIB, SUPLIB, ST, LOADIN, TABLE) 
Figure  A-I3B.  Procedure  STAGINGEN  (PROCFIL  Version) 
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’  ”  '  rv-i:  r  ttvc,  \ 

BEGIN ,0, * FILE 

,  NEW  ALT'.  .GPRIMEPRE. 

RETURN  1 FRE  ,CL 

I  AGIO,  NEW  AUTO,..  UIOEIN) 

BEGIN , H , *r I Lb 

hWABS . 

BEGIN, R,*FILE 

.LOADFIL. 

REWIND (LOADF) 

COP Y P ?. -  L OADF, LOADFIL., 2) 

BEGIN , A , *FiLE 

, VLIP , VLIB  . 

COPY PR  (  VLI  :•  ,L 

OitDFIL) 

COPYPF  i  LOAPF  .I.PADFU.) 

BEGIN , C , *FI LE , LQADFIL .GPRIME , LOADF . 

RETIJ HN ( VLI B , T  RASH , LOADF ) 

ENDIFCL 1 ) 

BEGIN  ,  A  . *FILE ,  LOADF IL,GPRIME,LCADF  . 

BEGIN , A , *FILE , LIB1 .GENERLB. 

BEGIN , A , *FILE , LIB2 ,SUPPORTLIB . 

RFL( S7"Q0) 

MAP (ON) 

LDSET( LIB-LIE  1 /LIB2/LIB3 ) 

LOAD! LOADFIL ) 

NOGO . 

REWIND(OVFILF) 

BEGIN, A, ‘FILE, OLDABS, GPRIME. 

BEGIN , A , *FILE ,TSK , CAMV .TSKLOAD . 

TSK ( NEWABS , OVFILE , OLDABS) 

BEGIN ,C , *FILE ,NEWABS ,GPRIME . 

SKIP (  1 ) 

EXIT(S) 

LIBRARY . 

REVERT. 

/DATA 

*C  AUTG.OVLY 
•ID  UNDO 
*D  GM033178A . 1 
/EOR 

Figure  A- 1 << .  Procedure  LOADGP  (PROFIL  Only) 
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XGPRIME( *MODE= INITIAL) 

/* 

/*  EXECUTE  GPRIME  FROM  STAGING 

/• 

DISCONT( INPUT, OUTPUT) 

REWIND(OUTPUT , DESKRCH ) 

RETURN(TAPE1 ,TAPE6l ,TAPE62 ,SMF, AUTO,UMF,MACRODB) 
ATTACH (SMF,SMF,ID=STAGING3) 

ATTACH( AUTO, GPRIME, ID=STAGING3) 

REQUEST ( UMF , *PF ) 

IFC ( EQ . *MODE , INITIAL , L 1 ) 

ATTACHE MACRODB ,MACRODB , ID=STAGING3 ) 

COPYBF  MACRQDB  UMF) 

RETURN(MACRODB) 

ELSE(L1 ) 

COPYBF (DESKRCH ,UMF) 

ENDIF(LI) 

CONNECT(TAPE6l ,TAPE62) 

AUTO( *DATA ) 

SKIP(1) 

EXIT(S) 

REWIND(UMF, DESKRCH) 

COPYBF( UMF, DESKRCH) 

RETURN( AUTO, SMF, UMF, HC, *DATA, TAPE6 1 ,TAPE62) 
REVERT. 

/DATA 
•RESTART 
•RATE, 960 

•INTERACTIVE, STORAGE 

END 

/EOR 


Figure  A-15A.  Procedure  XGPRIME  (PROFIL  Version) 
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. PROC ,XGPRIME,MODE= INITIAL ,CCLFILE=#FILE, CCLDATA =#DATA . 
IFE( FILE (OUTPUT , AS ) ,LAB4) 

DISCONT( INPUT, OUTPUT) 

ENDIF( LAB4 ) 

RETURN ,SMF ,UMF ,GPRIME ,TAPEO ,MACRODB. 

FETCH, SMF.CAGM. 

ATTACH, GPRIME, GPRIME, ID=CAGM, LC=1 ,MR=1 . 

REWIND ( DESK RCH ,UMF ) 

IFE($MODE$.EQ.$INITIAL$,LAB13) 

ATTACH .MACRODB .MACRODB ,ID=CARK , MR= 1 . 

COPYBF(MACRODB,UMF) 

RETURN, MACRODB. 

SKIP(LAB14) 

ENDIF( LABI  3 ) 

COPYBF( DESKRCH , UMF ) 

ENDIF(LAB14) 

RETURN, TAPE61 ,TAPE62. 

CONNECT ,TAPE6 1 ,TAPE62 . 

IFE( FILE (INFILE, AS) ,LAB20) 

REWIND , CCLDATA , INFILE . 

COPYBR , INFILE , CCLDATA . 

REWIND, CCLDATA. 

ENDIF(LAB20) 

GPRIME ( CCLDATA) 

RETURN, TAPE61 ,TAPE62. 

REWIND, UMF, DESKRCH. 

COP YBF.UMF, DESKRCH. 

RETURN ( AUTO , SMF , UMF , HC , CCLDATA ) 

BEGIN , RESTA  RT , CCLFILE . 

EXIT. 

DMP, 60000. 

REWIND, UMF, DESKRCH. 

COPYBF, UMF, DESKRCH. 

RETURN, UMF. 

RETURN(TAPE61 ,TAPE62, AUTO, SMF, HC, CCLDATA) 

BEGIN, RESTART, CCLFILE. 

EXIT. 

BEGIN , RESTART , CCLFILE. 

.DATA 
•RESTART 
•RATE, 480 

•INTERACTIVE, STORAGE 
END 


Figure  A-15B.  Procedure  XGPRIME  (PROCFIL  Version) 
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UPDATE( *PREFIX=STAGING) 

/* 

/»  STAGING  SYSTEM  MAINTENANCE  PROCEDURE 

/» 

/*  VALID  PREFIXES:  STAGING 


/» 

INTERTEK 

/» 

DATABASE 

/* 

CONVERSION 

/» 

PERMFILE 

/» 

RECOVERY 

/“ 

XYGRAPH 

/» 

MENUGEN 

/* 

BEGIN , A , “FILE, IN , “PREFIX , IN . 

BEGIN , A , “FILE , OLDPL , “PREFIX, PL. 

BEGIN , A, “FILE, BINOLD, “PREFIX, BIN. 

BEGIN, R, “FILE, NEWPL. 

BEGIN, R, ‘FILE, BINNEW. 

BEGIN, R,»FILE, EMPTY. 

UPDATE (N , I=IN ,0=LISTING ) 

RETURN (BIN) 

FTN(I,Z,L=LISTING,R=3,B=BIN,S=SCPTEXT) 

COPYL(BINOLD, BIN, BINNEW, ,RA) 

BEGIN , C , ‘FILE , NEWPL , “PREFIX , PL . 

BEGIN, C, “FILE, BINNEW, “PREFIX, BIN. 

COPYBFC “DATA, EMPTY) 

BEGIN, C, “FILE, EMPTY, “PREFIX, IN. 

RETURNC BINOLD.BIN, BINNEW, IN, EMPTY, OLDPL, NEWPL) 

IFC(EQ, “PREFIX, STAGING, LI ) 

BEGIN , NEWLIB , “FILE , STAGING . 

ELSECL1 ) 

IFC( EO,  “PREFIX, INTERTEK.L2) 

BEGIN .NEWLIB , “FILE , INTERTEK . 

ELSE(L2) 

IFC( EO , “PREFIX .MENUGEN  ,L3 ) 

BEGIN .MENUGENABS , “FILE . 

ELSE(L3) 

BEGIN, SUPPORTLIB, “FILE. 

ENDIF(L3) 

ENDIF(L2) 

ENDIF(L1 ) 

/» 

/*  IF  PREFIX  WAS  STAGING,  PROCEDURE  STSEG  IS  NECESSARY  TO  BUILD  ABSOLUTE 

/» 

SKIP(I) 

EXIT(S) 

..EVERT. 

/DATA 
“ID  NEW 
/EOR 

Figure  A-16A.  Procedure  Update  (PROFIL  Version) 


PROC .UPDATE ,PREFIX= STAGING . 

.»  STAGING  SYSTEM  MAINTENANCE  PROCEDURE 
.«  VALID  PREFIXES:  STAGING 
#  INTERTEK 

*«  DATABASE 

'«  CONVERSION 

'«  PERMFILE 

’»  RECOVERY 

’«  XYGRAPH 

’#  MENUGEN 

BEGIN , A .PROCFIL, IN .PREFIX ,IN . 

BEGIN , A , PROCFIL .OLDPL , PREFIX .OLDPL. 

BEGIN  , A, PROCFIL, BINOLD.PREFIX.BIN. 

BEGIN  ,R .PROCFIL, NEWPL. 

BEGIN  ,  R , PROCFIL .BINNEW . 

FfiStf"2?£SlSTINO,H=3,B=BIK,S=SCPTEXT! 
COPYL(BINOLD, BIN, BINNEW, ,RA) 

BEGIN, C, PROCFIL, NEWPL, PREFIX, PL. 

BEGIN,  C, PROCFIL, BINNEW, PREFIX, BIN. 

COPYBF( //DATA,  EMPTY) 

BEGIN, C, PROCFIL, EMPTY, PREFIX, IN. 

RETURN(BINOLD, BIN, BINNEW , IN, EMPTY , OLDPL , NEWPL) 

IFE  ,  $PREFIX$ . EQ . $STAGING$ ,L 1 . 

BEGIN, NEWLIB, PROCFIL, STAGING. 

ENDIF(LI) 

IFE ,  $PREFIX$ . EO . $INTERTEK$ , L2 . 

BEGIN .NEWLIB , PROCFIL .INTERTEK . 

ENDIFCL2) 

IFE , $PREFIX$ . EQ . $MENUGEN$ ,L3 • 

BEGIN .MENUGENABS , PROCFIL . 

ENDIFU3) 

IFE,$PREFIX$.EO.$DATABASE$,L4 . 

BEGIN, SUPPORTLIB, PROCFIL. 

ENDIF(L4 ) 

IFE,$PREFIX$.EQ.$CONVERSION$,L5. 

BEGIN .SUPPORTLIB , PROCFIL . 

ENDIF(L5 ) 

IFE  ,  $PREFIX$ . EO .$PERMFILE$ , L6 . 

BEGIN .SUPPORTLIB .PROCFIL . 

ENDIF(L6) 

IFE, $PREFIX$ . EQ . $RECOVERY$ ,L7 . 

BEGIN .SUPPORTLIB , PROCFIL . 

ENDIF(L7) 

IFE,$PREFIX$.EQ.$XYGRAPB$,L8. 

BEGIN, SUPPORTLIB, PROCFIL. 

ENDIF(L8) 

SKIP(L9) 

EXIT(S) 

ENDIFU9) 

REVERT. 

.DATA 
•ID  NEW 
.EOR 

Figure  A-16B.  Procedure  Update  (PROCFIL  Version) 
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PROFIL  VERSION 


NEWLIB(*PREFIX=STAGING) 

/» 

/»  CREATE  NEW  STAGING  OR  INTERTEK  LIBRARY 

/» 

BEGIN, R, “FILE, LIB. 

BEGIN, A, “FILE, BIN, “PREFIX, BIN. 
EDITLIB(I=“DATA,L=0) 

BEGIN, C, “FILE, LIB, “PREFIX, LIB. 

REWIND(LIB) 

ITEMIZE(LIB.E) 

SKIP(1) 

EXIT(S) 

RETURN(BIN ,LIB) 

REVERT. 

/DATA 

LIBRARY (LIB, NEW) 

ADD( *,BIN) 

FINISH. 

ENDRUN . 

/EOR 


PROCFIL  VERSION 

. PROC ,NEWLIB ,PREFIX=STAGING . 

.» 

.“  CREATE  NEW  STAGING  OR  INTERTEK  LIBRARY 

BEGIN, R, PROCFIL, LIB. 

BEGIN, A, PROCFIL, BIN, PREFIX, BIN. 
EDITLIB(I=#DATA,L=0) 

BEGIN , C , PROCFIL , LIB .PREFIX ,LIB . 
REWIND(LIB) 

ITEMIZE(LIB,E) 

SKIP(LI) 

EXIT(S) 

ENDIF(LI) 

RETURN(BIN.LIB) 

REVERT. 

.DATA 

LIBRARY (LIB, NEW) 

ADD(»,BIN) 

FINISH. 

ENDRUN. 

.EOR 


Figure  A-17.  Procedure  NEWLIB 


APPENDIX  B 

STAGING  LOADER  DIRECTIVES 
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APPENDIX  B 

STAGING  LOADER  DIRECTIVES 

l 

This  section  contains  the  list  of  loader  directives  that  are 
input  to  the  CYBER  Loader  Version  1.4.  The  list  is  presented  in  six 
tables  which  correspond  to  the  six  segment  levels  of  the  STAGING  segmentation 
scheme : 


-  ROOT 

-  SWAPPABLE  COMMON  BLOCKS 

-  APPLICATION  SUBROUTINES 

-  MISCESSLANEOUS  SUBROUTINES 

-  GRAPHICS  SUBROUTINES 

-  SYSTEM  AND  DATA  HANDLER  SUBROUTINES 
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» 

*  TEKTRONIX  VERSION  OF  STAGING 


BEGIN  TREE  DRIVE 
•  DRIVER  IS  THE  MAIN  PROGRAM 
»  OF  THE  STAGING  SYSTEM 


DRIVE 

INCLUDE 

DRIVER 

DRIVE 

INCLUDE 

GLOINT 

DRIVE 

INCLUDE 

ATT 

DRIVE 

INCLUDE 

RCOVER 

DRIVE 

INCLUDE 

SWITCH 

DRIVE 

INCLUDE 

STARTM 

DRIVE 

INCLUDE 

EXTABLE 

DRIVE 

INCLUDE 

DETABLE 

DRIVE 

INCLUDE 

PRTABLE 

DRIVE 

INCLUDE 

PPTABLE 

DRIVE 

INCLUDE 

GLTABLE 

DRIVE 

INCLUDE 

GLINIT 

*  COMMON  BLOCK 

DMTBL  MUST  BE  LOW  IN 

»  CORE 

FOR  PROPER  OPERATION  OF  DATA  HANDLER 

DRIVE 

GLOBAL 

DMTBL 

DRIVE 

GLOBAL 

ACTSTR 

DRIVE 

GLOBAL 

ATTRIB 

DRIVE 

GLOBAL 

AXDAD 

DRIVE 

GLOBAL 

CATS 

DRIVE 

GLOBAL 

CHDAT 

DRIVE 

GLOBAL 

CHECK 

DRIVE 

GLOBAL 

CHKDF 

DRIVE 

GLOBAL 

CNTDE 

DRIVE 

GLOBAL 

CODES 

DRIVE 

GLOBAL 

CREATR 

DRIVE 

GLOBAL 

DEFORM 

DRIVE 

GLOBAL 

DRAWBUF 

DRIVE 

GLOBAL 

EDITT 

DRIVE 

GLOBAL 

ELEMEN 

DRIVE 

GLOBAL 

ERASEC 

DRIVE 

GLOBAL 

ERROR 

DRIVE 

GLOBAL 

EXMENU 

DRIVE 

GLOBAL 

GLIN 

DRIVE 

GLOBAL 

GLOBAL 

DRIVE 

GLOBAL 

LIMIT 

DRIVE 

GLOBAL 

MASKS 

DRIVE 

GLOBAL 

MAXSSS 

DRIVE 

GLOBAL 

MCODES 

DRIVE 

GLOEAL 

MENUS 

DRIVE 

GLOBAL 

PERMEN 

DRIVE 

GLOBAL 

PIC 

DRIVE 

GLOBAL 

PLANE 

DRIVE 

GLOBAL 

ROTANG 

DRIVE 

GLOBAL 

SWTCH 

DRIVE 

GLOBAL 

TERMT 

DRIVE 

GLOBAL 

VU3D 

DRIVE 

GLOBAL 

ZZFILE 

Table  B-l.  Root  Level 
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LEVEL 

*  THIS  LEVEL  IS  FOR  SHARING  CORE 

*  BETWEEN  GROUPS  OF  COMMON  BLOCKS 


B1 

TREE 

ELI 

BL1 

INCLUDE 

BL1INT 

BL1 

INCLUDE 

ATT1 

BL1 

GLOBAL 

DATBAS-SAVE 

BL1 

GLOBAL 

PXY777-SAVE 

BL1 

GLOBAL 

IDENTS-SAVE 

BL1 

GLOBAL 

MENBLK-SAVE 

BL1 

• 

GLOBAL 

CNINT-SAVE 

B2 

TREE 

BL2 

BL2 

INCLUDE 

BL21NT 

BL2 

GLOBAL 

TBLOCK-SAVE 

Table  B-2.  Swappable  Common  Blocks  Level 


TREE  1 

# 

LEVEL 

TREE 

MEN1-C EX ,GL) 

MFN 1 

INCLUDE 

EXSTAR 

MEN  1 

INCLUDE 

REACT 

MEN  1 

* 

INCLUDE 

FILNAM 

EX 

INCLUDE 

IEXDEC 

EX 

INCLUDE 

EXEC 

EX 

INCLUDE 

EXECC- 

EX 

ft 

INCLUDE 

FILATT 

GL 

TREE 

GLO-(GL1 ,GL2,GL3,GL4) 

GL.O 

INCLUDE 

IGLDEC 

GLO 

INCLUDE 

MORDRW 

GLO 

INCLUDE 

MOAXES 

GLO 

INCLUDE 

MOLAX 

GLO 

INCLUDE 

MOZSRS 

GLO 

INCLUDE 

MORCNT 

GLO 

INCLUDE 

MOZCRS 

GLO 

• 

INCLUDE 

MOZPLS 

GL1 

INCLUDE 

GLSTOP 

GL1 

INCLUDE 

GLCHCK 

GL1 

INCLUDE 

GLCLOK 

GL  1 

INCLUDE 

GLHIST 

GL1 

INCLUDE 

GLLUP 

GL1 

* 

INCLUDE 

GLLDN 

GL.? 

INCLUDE 

GLSTDB 

GL2 

INCLUDE 

GLSTDS 

Gl-2 

INCLUDE 

GLDEFP 

GL2 

INCLUDE 

GLDEFS 

GL2 

# 

INCLUDE 

IGNM 

GL3 

INCLUDE 

FRONTVU 

GL3 

INCLUDE 

SIDEVU 

GL3 

INCLUDE 

TOPVU 

GL3 

INCLUDE 

MOFILL 

GL? 

INCLUDE 

MODRW 

GL3 

INCLUDE 

SVIEW 

GL3 

INCLUDE 

SVIEWP 

GL3 

INCLUDE 

MOSPLT 

GL3 

INCLUDE 

MOSOS 

GL? 

INCLUDE 

MOFRE 

GL3 

INCLUDE 

MOFRZ 

GL3 

INCLUDE 

MOASHK 

GL3 

INCLUDE 

MOISHK 

GL3 

« 

INCLUDE 

MOSSHK 

GL4 

INCLUDE 

SROTET 

GLU 

INCLUDE 

SROTST 

Fipnre  B-T. 


Application  Routine  Lev 
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POST 

TREE 

PP 

PP 

INCLUDE 

IPPDEC 

PP 

INCLUDE 

PRINCP 

PP 

INCLUDE 

PRINC3 

PP 

INCLUDE 

EOSTR 

PP 

• 

INCLUDE 

PROOT 

PR 

TREE 

PR0-(PR1-(PR1 1 ,PR12) ,PR2) 

*  THERE  ARE  TWO  PREPROCESSOR  TREES - 

*  PR - DRAFTING  PACKAGE 

*  PRM— MATERIAL  PROPERTY  DATA  BASE 


PRO 

INCLUDE 

IPRDEC 

PRO 

INCLUDE 

DRAWFR 

PRO 

• 

GLOBAL 

PDRAW-SAVE 

PR1 

• 

INCLUDE 

ICPART 

PR  1  1 

INCLUDE 

CNNEW 

PR  1 1 

INCLUDE 

CNELEM 

PR1 1 

£ 

INCLUDE 

CNNODE 

PR12 

INCLUDE 

CNTERM 

PR  12 

INCLUDE 

CNTER 

PR  12 

• 

INCLUDE 

CM SORT 

PR2 

INCLUDE 

NODE 

PR2 

INCLUDE 

GRID 

PR2 

INCLUDE 

CHNGP1 

PR2 

INCLUDE 

CHNGP2 

PR2 

INCLUDE 

BDSTR 

PR2 

INCLUDE 

FIXDAT 

PR2 

INCLUDE 

SETLN 

PR2 

INCLUDE 

SETND 

PR2 

INCLUDE 

IDRNXT 

PR2 

• 

INCLUDE 

CLROUT 

PRM 

• 

TREE 

PRM0-( PRM1 ,PRM2) 

PRMO 

• 

INCLUDE 

CNTABL 

PRM1 

INCLUDE 

MYINIT 

PRM1 

INCLUDE 

ASUB4 

PRM1 

INCLUDE 

ASUB5 

PRM1 

INCLUDE 

ASUB7 

PRM1 

INCLUDE 

DISPLB 

PRM1 

INCLUDE 

DRELN 

PRM1 

INCLUDE 

ELNAM 

PRM1 

INCLUDE 

GETRAG 

PRM1 

INCLUDE 

INTSUB 

PRM1 

• 

INCLUDE 

LIBIN 

PRM2 

INCLUDE 

MATDEF 

PRM2 

INCLUDE 

MATIN 

PRM2 

INCLUDE 

LIBINS 

Figure  B-3.  Application  Routines  Level  (Cont'd) 


DE  TREE  DE0-(DE1  ,DE2,DE3,DEi*,DE5,DE7,DE9) 
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DEM  TREE  DE40-(DE4 1 ,DE42) 
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Figure  B-3.  Application  Routines  Level  (Cont'd) 
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Figure  B-4.  Miscellaneous  Level 
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APPENDIX  C 

STAGING  SYSTEM  CROSS-REFERENCE 


occur  in 
such  as: 


This  appendix  is  an  alphabetized  listing  of  all  entry  names  that 
the  STAGING  system.  Each  entry  has  information  associated  with  it, 


entry  classification  -  indicates  whether  the  entry  name  is  the 
name  of  the  object  module  (MAIN)  or  a  secondary  entry 
point  (SECONDARY); 

description  -  a  brief  explanation  of  an  entry  name's  function 
(if  avail  able) ; 

length  -  length  of  object  module  in  octal  words; 
language  -  source  language  of  object  module; 

secondary  entry  point  information  -  for  a  main  entry  point:  a  list 
of  secondary  entry  points  (if  any)  -  for  a  secondary  entry 
point:  the  associated  main  entry  point; 
names  of  callers  -  names  of  all  modules  that  contain  this  entry 
name  as  an  external  reference  -  if  entry  has  none,  then  a 
messaqe  to  that  effect  will  appear; 
names  of  cdllees  -  names  of  all  external  references  by  this  module 
if  there  are  none  then  a  message  to  that  effect  will  appear  - 
in  the  case  of  a  secondary  entry  point  this  information  is 
not  applicable; 
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An  example  of  two  entries  is  given  below,  "SINCOS 
1  SIN. " ,  where  the  latter  is  a  secondary  entry  point  for  the  for 

SINCOS  =  ENTRY  CLASS:  MAIN  SEGMENT:  ($0) 

DESC :  TRIGONOMETRIC  SINE  OR  COSINE  OF  X 
LENGTH:  66  LANGUAGE:  COMPASS 
SECONDARY  ENTRY  POINTS: 

COS.  SIN. 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
CAN  CALL  THE  FOLLOWING: 

SYS1ST 

SIN.  ENTRY  CLASS:  SECONDARY  SEGMENT:  (S0) 

DESC:  (NOT  AVAILABLE) 

SECONDARY  ENTRY  POINT  FOR:  SINCOS  = 

CAN  BE  CALLED  BY: 

SROTET  SETVU  GC3DA  CNVTOC 
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ENTRY  CLASS!  SECONDARY  SEGMENT!  _  (SO » . . . 

OESCI  (NOT  A YAilASlE) 

SECONDARY  ENTRY  POINT  FOR  «  FORSYS= 

CAN  BE  CAILEO  BY  I 
GOT  01.  R- 

ENTRY^ CLASS!  SECONDARY  SEGMENT!  (SO) 

OESCI  (NOT  AVAILABLE) 

SECONDARY  ENTRY  POINT  FOR  I  FORSYS= 

CAN  BE  CAlLEO  BY! 

Q8.I0.  STP.ENO  _ 

ENTRY_  CLASS!  hAIN_  SEGMENT!  ( G 1 3 > 

OESCI  "COMPUTE’  The  "INVERSE  SINE  OR  COSINE  OF  X. 

LENGTH!  71  LANGUAGE!  COMPASS 

SECONDARY  ENTRY  POINTS! 

ACOS. 

THIS  ENTRY  IS  NOT  INVOKED  8Y  ANY  OTHER  PROGRAMS 

CAN  CALL  THE  FOLLOWING  I _ 

"SYS  1ST. 

ENTRY  CLASS!  SECONDARY"  SEGMENT!  (Gl3> 

OESCI  (NOT  AVAILABLE) 

SECONDARY  ENTRY  POINT  FOR  I  ACOSIN= 

QA_N_  BE_C  A_LL  ED  3YJ _ _ _ 

GC30A  CNVTOU 

ENTRY  CLASS!  MAIN  SEGMENT!  (M33) 

OESCI  PROCESS  CROSSHAIR  PICK  OF  ATTRIBUTE  NAME  DISPLAYED  BY  XSELATT  t 
LENGTH!  25  LANGUAGE!  FTN 

SECONDARY  _E  NT  «Of_PO_I  NT  SI _ _  

A T TOFF 

CAN  BE  CALL  c 0  BY!  _ _ 

0ETA9LE  PROCXA 

CAN  CALL  THE  FOLLOWING! 

SELATC 

TnTry  class-!- maTn  sEGmenTi  <DB2)  ~ 

OESCI  ACTIVATE  SEAO  F OF  DISPLAY 

LENGTH!  141  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y! 

BOSTR  FIXLAT _ ASU84 _ ALLON  __  ASUBS 

RNGORW  NO 0 A EL  NODFEL  LFNOO  ‘  ECPROC 

ASERCH  TA3ACT 

"CAN  CALL  THE  FOLLOWING! 

DBOAO  OBOLF  OBORT  DBOAC  IOBOLF 

ICKACT 

TnTry  Cl’ATsT~ matn  segment  i-"  (oeo) 

OESCI  DELETE  ANO  DEACTIVATE  ALL  BEADS  ON  A  LEVEL 
LENGTH!  24  "  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
"CAN  BE  CALLEO  3Y« 


DETA6LE 

CAN  CALL  THE  FOLLOWING! 

_ PEL  ETE _  _ 

ALLON  ENTRY  CLASS!  MAIN  SEGMENT!  (OEO) 

OESCI  ALT  I  V  AT  r  ALL  SCADS  ON  A  LEVEL 
LENGTH!  112  LANGUAGE!  FTN 
SECONDARY  ENTRY  POINTS! 

_ ALLSON  _ _ _ _ 

CAN  BE  CALLEO  3Y  i  *  . 

_ PET  ABLE 

CAN  CALL  THE  FOLLOWING! 

_ I  DRW _ 10ISER  ACTIVA  NEXT  IN  NEXT0 

ALLSON _ EN.TRY__CLASS  1  SECONDARY  SEGMENT!  (DEO) 

OESCI  ACTIVITY  All  NODES  OR  ELEMENTS  IN  ACTIVE  SUBSTRUCTURES 

_ SECONDARY  ENTkY  POINT  FOR  i  ALLON 

CAN  BE  CALLEO  .)»  ! 

_ _ _ _ OE TABLE _  _ 

A  LOG  10  .  ENTRY  CLASS!  SECONDARY _ SEGMENT!  C  S 1  I 

OESCI  (NOT  AVAILABLE) 

_ SECONDARY  ENTRY  POINT  FOR  I  ALOG 

CAN  BE  CALLED  BY! 

_ SCALZZ  SET  SMG SETUPG  LABEL  G  08JCTG 

SUBJEG 

ALOG  T N TRY  CLA SS«"ma1n  SE'GMEN T !  (Si) 

__  OESC l  COMPUTE  COMMON  ANO  NATURAL  LOGARITHMS.  OP  T  =  ALL 

LENGTH!  7.1  LANGUAGE!  COMPASS 

_  SECONDARY  ENTRY  POINTS! 

ALOG.  ALOGIO. 

_ I_hi_s_entry_  is  not  invoked  by _ any  other  frograks 

can  CALL  THE  FOLLOWING! 

_ SYS  1ST.  _ 

ALOG.  _  ENTRY  CLASS!  SECONDARY  SEGMENT!  (SI) 

OESCI  IVOT  AVAILABLE) 

__  _____  SECONDARY  ENTRY  POINT  FOR  I  ALOG 

CAN  Bfc  CALLED  BY!" 

XTOYr 


A  MAC. S  0  ENTRY  CLASS!  SECONDARY  SEGMENT!  (SO) 

OESC!  (NOT  AVAILABLE) 

_ SECONDARY  entry  POINT  FOR  t  GET.SQ 

CAN  BE  CALLED  BY! 

_ _ _  8TRT.SQ  FSU.SQ 

ANBL.SQ_  ENTRY  CLASS!  SECONDARY  SEGMENT!  (SO) 

OESCI  (NOT  AVAILABLE) 

SECONDARY  ENTRY  POINT  FOR  I  GET. SO 

CAN"  3E  CALLED  3 y i  "  . . 

BTRT.SJ 

ARROW  _  ENTRY  CLASS!  MA I N  SEGMENT!  (M822) 

DESCI  ORAW  AN  An.RO*  ALONG  WITH  ANY  OF  THE  COORDINATE  AXES 
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_LENGTHI  36?  LANGUAGE!  FJN 
HAG  NO  SECONDARY  ENTRY  POINTS 

_ CAN  BE  CALL  LtJ  BY! _ _ _ _ _ 

HOAXES  I C  R WAT 

_ can  call  the  F  OL'_  0  F  r  NG  I 

IORWLN  IARSET  GC  HAT  UTORAS  SORT. 

ASERCHA  ENTRY  CLASS*  SECONDARY  SEGMENT!  (DE7> 

_ OESCi  SEARCH  FOR  ALL  BE  AOS  ON  A  LEVEL  WITH  SPECIFIED  ATTRIBUTES 

SECONDARY  ENTRY  POINT'  FOR  1  ASERCH 
CAN  9E  CALLED  JY! 

OETAGLE 


ENTRY  CLAjS!  ”AIN  SEGMENT!  (DE7> 

OESCI  SEARCH  eqr  ALL  LEADS  IN  ACTIVE  SU 8STRUC TU RES  BY  ATTRIBUTE 
L  E  NOTH  I  1  0  6~  L  AN  GU  A  GE  I  FTN 

SECONDARY  ENTRY  POINTS! 

ASERCHA 

CAN  BE  CALLED  BY* 

OETAuLE 

CAN  CALL  THE  FOLLOWING! 

ELNCHK  PUTEOT  put at  iorw  IDISER 

ICHKFO  COHPAC  ACTIVA  NEXTIN  NEXTB 

ICKATT 

ENTRY  CuASS!  MAIN  SEGMENT!  (CEO! 

PESO!  ACTIVATE  _SJRUCTURES  OR  SUBSTRUCTURES  BY  NAME 
LENGTH!  22  '  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

OET  ABLE 

CAN  CALL  THE  FOLLOWING! 

_ PUTNM _ M  uE AO  ACTIVA _ _ _ _ 

ENTRY  CLASS!  MAIN  SEGMENT!  CPRM1) 

OESCi  PROCESS  SUBSTRUCTURE  PICKS  FOR  MATERIAL  PROPERTY  GENERATION 
LENGTH!  37  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

~  PRT  AdLE  "  "  '  . 

CAN  CALL  THE  FOLLOWING! 

ORELN  PUTNM  ORWSS  M  BEAD  ACTIVA 

ASU96  ENTRY  CLASS!  MAIN  SEGMENT!  (PRM1) 

_ OESCI  PROCESS  ELEMENT  PICKS  FOR  MATERIA LPROPERTY  GENERATION 

LENGTH!'  41  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

PRTABLE 

CAN  CALL  THE  FOLLOWING! . .  " 

_  MBEAO 


ASUB7S  ENTRY  CLASS!  SECONOARY  SEGMENT!  (PRM1) 

OESCI  BET  FLAG  TO  INDICATE  THAT  MP  TO  BE  OEFINEO  FOR  ALL  ELEMENTS 
SECONOARY  ENTF.Y  POINT  FOR  I  ASUB7 
CAN  BE  CALLEO  BY! 


ASERCH 


A  SUBS 
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PRT  ABLE 


ASU37 _ ENTRY_  CLASS  !  MAIN  SE  GHENT  1  (PRM1) 

DESC:  PROCESS  ELEMENT  TYPE-  f  OR  MATERIAL  PROPERTY  GENERA 
LENGTH  1  LI  LANGUAGE:  etn 

SECONDARY  ENTRY  POINTS: 

ASUB7S 

CAN  BE  GALLEO  OY : 

_ P  R  T  ABLE  ______ 

can’  CALL  THE  FOLLOWING: 

CNELM 

MAN?  ENT  py  CLASS’,  main  SEGMENT:  t  G 1  3 » 

OESE. :  ARC  TAN  C>  kATIU  OF  Y  TO  X,  OPT  -  ALL. 
length:  7,5  LANGUAGE:  COMPASS 

SECONDARY  F']  T  POINTS! 

ATAN? . 

this  entry  is  not  invoked  by  any  other  programs 
CAN  CALL  THE  Following: 

SYS A 10 . 

"aTAN?^  EnTrY- CLASS:  : SECONDARY  SEGMENT!  CGI  3) 

DESC!  (NOT  AVAILABLE) 

’SECONDARY  ENTRY  POINT  FOR  !  ATAN2 
CAN  BE  CALLED  3Y! 

GC3DA  CNVTOU 

TTtlSC  ~  'entry  CLASS!  SECOND  ART  SEGMENT:  "  CDE3) 

Of  SC :  CHECK  TO  SEE  IF  MORE  ATTRIBUTE  NAES  ARE  TO  BE  OIS 
SECONDARY  f.jTRY  POINT  FOR  :  ATTLST 

_ CAN  BE  CALLED  3Y : 

ATT  PRC 

"att'lst  'entry  classT~maTn  SEGMENT!  (DEI) 

DESC:  0 1 S  °L  AY  ATTRIBUTE  NAMES  FOR  THIS  DATA  BASE  LEVEL 

. LENGTH!  7  C  LANGUAGE!  FTN 

SECONDARY  ENTRY  POINTS! 

ATTL3C 

CAN  BE  CALLED  BY! 

"de  Table"  "  ~  '  ’*■  . . 

can  call  The  following: 

TYPVAL  SETCAT 

attoff  entfy  class:  secondary  segment:  cm33> 

_ OE  sc :  turn  off  attribute  DISPLAY 

SECONDARY  ENTRY  POINT  FOR  :  ACTATT 
CAN  BE  CALLED  BY! 

OETApLE 

A  TTPRC  ENTRY  CLASS!  MAIN  SEGMENT!  OE3) 

OESCl  PROCESS  ATTRIBUTE  PICK 
LENGTH:  '33  LANGUAGE!  FTN 

HAS  NO  SFCONOARY  ENTRY  POINTS 
CAN  UE  CALLED  BY! 

0  E  T  A  3  L  F 

. can  call  the  following: 


A  T  7  (_  3  C  i'UirOT 

ATTRFC  ENT  R  Y  ClA-'S!  SECONDARY  SEGMENT!  (  DE  3) 

0 -  3 s  :  r..o  ;<  To  tFf  IF  MORE  ATTRIBUTES  ARE  TO  QE  PUT  UP  FOR  RENAME 
S  E  C  ( 1 N  .  i  A  R  Y  c.TxY  POINT  FOR  I  ATTREN 

CAN  E  3 A LlM,  BY  I 
ATTRNP 

ATTREN _ EnTpy  CLASS!  MAIN  _ SEGMENT!  (0E3> 

6;  S3 I  (NUT  -VAIuA-JLE) 

LENGTH!  IA?  LANGUAGE!  FTN 

St.  3 ON  3  A  ■  v  7  NT  ;y  POI  NTS! 

ATT 

c  .  N  :'f  ;  .*  ’LED  BY  ; 

O-TA  iLE  _ 

CAN  CAL'-  TN-  FOLLOWING! 

PUTET'T  I  BEAUT 

attrng  entry  class!  main  segment!  (0E3> 

Of SC  1  NOW  PUT  T PE  NEW  ATTRIBUTE  NAME  TOGETHER  FOR  THIS  DATA  BASE 
LENGTH!  127  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS  ’ . 

_ CAN  BE  CALLED  BY! 

.  OETAdlE 

CAN  CALL  THE  FOLLOWING! 

PUT EuT  IDISEA  IBEAUT  '  ICHKED  COMPAC 

_ _ IF  ATT _  _  _  .... 

A  TTRNP  ENTRY  CLASS!  "AIN  SEGMENT!  (0E3) 

OESC !  PROCESS  TYPE-IN  FOR  ATTRIBUTE  RENAME 
L  r  N  G  T  H  !  5G  LANGUAGE!  FTN 

MAS  NO  SECONDARY  ENTRY  POINTS 

_ _ CAN  BE  3ALLFD_3Yj _ 

'“bETAiiLE 

CAN  CALL  THE  FOLLOWING! 

ATTREC  ICHKEO  COMPAC 

A  IT  1  entry  CLASS!  MAIN  SEGMENT!  CBL1) 

Of  SC!  initial:/1  MOOEL  data  BASE  OATA  HANDLER  CONSTANTS 
LENGTH!"’  3  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

ATT 

THIS  PROGRAM  DOES  NOT’ INVOKE  ANY  OTHER  PROGRAMS 

ATT - ITnTVy  CLASS’:  HA  In  ‘SEGMENT*  (DRIVE)  " 

OESC «  CONTAINS  ONLY  OATA  STATEMENTS 
LENGTH!  4  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  U v I 
GLOINT 

CAN  CALL  THE  FOLLOWING!  . .  " . .  . . . 

ATT  1 

BOSTR  ENTRY  CLASS!  MAIN  SEGMENT!  (PR2> 

oesc:  initialize  node  string  picking  in  drafting 
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_  LENGTH*  US  LANGUAGE!  FTN 

SECONOARY  ENTRY  POINTS: 

_ CNCTOO 

CAN  BE  CALLEO  9v* 

PRTAJLE 

CAN  CALL  the  following: 

_ _  SET  LN  SETNO  IORNXT  CNELM  IORW 

ONPEN  M8EA0  ACTIVA  08CHA  09UPT 

_ OBjjnt. _ .  . 

8FN. _ ENTRY  CLASS:  SECONOARY  SEGMENT:  tSO) 

DESC*  (NOT  AVAILABLE) 

_ SECONOARY  ENTRY  POINT  FOR  :  FORUTL= 

CAN  BE  CALLEO  3*  : 

_ Fp  r  s  y  s_f _ 


8L1INT. _ ENTRY  CLASS:  MAIN  SEGMENT:  (BL1) 

OESC :  BRING  SEGMENT  BL1  COMMON  BLOCKS  INTO  CORE 

_ _ LENGTH:  S  LANGUAGE:  ETN 

HAS  NO  SECONOARY  ENTRY  POINTS 

_ CAN  3£_C ALL  ED  BY :  _ 

DRIVER  GLOINT  CNTOR 

THIS  PROGRAM  COES  NOT  INVOKE  ANY  OTHER  PROGRAMS 


BL2INT ENTRY  CLASS:  MAIN  SEGMENT:  (BL2) 

OESC •  BRING  SEGMENT  8L2  COMMON  BLOCKS  INTO  CORE 

_ length:  .5  language:  ftn 

HAS  NO  SECONDARY  "entry  POINTS 

_  CAN  BE  CALLEO  BY: 

CNTOR 

_ THIS  PROGRAM  GOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

BTRT.SQ  ENTRY  CLASS:  MAIN _ SEGMENT*  <  S  0  > 

Ot$C«  (NOT  AVAILABLE) 

_  LENGTH:  114  LANGUAGE:  COMPASS 

SECONOARY  ENTRY  POINTS* 

_  PUT.C 

THIS  ENTRY  IS  NOT  INVOKED  fi  Y  ANY  OT  HE  R  PROGRAMS 

_ CAN_  CALL  THE  FOLLOWING* 

'  ANBL.'S'O"  AMAC.SO  RM.RCLA 

CBO.  ENTRY  CLASS*  SECONOARY  SEGMENT*  (SO) 

OESC*  (NOT  AVAILABLE) 

SECONOA  if  ENT-^Y  POINT  FOR  *  FORUTL= 

_ C  A  N_  3  E  CALLED  S* : _ _ 

E  0  RS  Y  S  = 

chngpi  entry  Class:  main  segment:  (pr2> 

OESC*  GET  TYPE-IN  TO  CHANGE  GRID  UNITS  IN  DRAFTING 
LENGTH*  40  language*  ftn 

_ HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  ?Y! . . 

PRT  ABLE 

CAN  CALL  THf  following: 

°OTEOT  IPEAUT 
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chnqp?  Entry  class*  main  segment*  (pr?) 

OESC  *  CHANGE  CRIO  UNITS  IN  CRAFTING 

_ LENGTH!  62 _ LANGUAGE*  FTN _  __  _ 

HAS  NO  SECONDARY  ENTRY  POINTS 

_  CAN  9E  CALLED  BY! 

PRTAJLE 

CAN  CALL  THE  FOLLOWING* 

GRID  GIOELT  GOTOER.  ICHKEO  COMPAC 

E N TRY~ CLAS S~’MAI N  SEGMENT*  “  (SO) 

OESC*  (NOT  AVAILABLE) 

LENGTH*  7  LANGUAGE*  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY* 

OPEN.SQ  _POT . SO 

THIS  PROGRA  M  COES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

ENTRY'  CLASS*  MAIN  SEGMENT*  (SO) 

OESC*  (NOT  AVAILABLE) 

LENGTHl"  40  LANGUAGE*  COMPASS 

SECONOARYJENTRY  POINTS* 

"  RM.CIO  R M • RC L A  RM.RCLP  . 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
THIS  PROGRAM  OOFS  NOT  INVOKE  ANY  OTHER  FROGRAMS 

CLEAR2  ~  ENTRY  CL ASS f  MA IN'  SEGMENT*  (PR1) 

_ OESC*  SET  ALLJ/ALUES  BETWEEN  ADDRESSES  SPECIFIED  TO  SPECIFIED  VALUE 

LENGTH*  6  LANGUAGE*  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  -3E  CALLEO  BY* 

IC° ART  CNELEM  CNNOOE 

THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

ENTRY*  CL  ASS'T'MA'fN  SEGMENT*  (SI) 

OESC*  ACCESS  SYSTEM  CLOCKS  FOR  FORTRAN. 

LENGTH*  31  LANGUAGE*  COMPASS 

SECONDARY  ENTRY  POINTS* 

time 

THIS  ENTRY  is  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
CAN'  CAL^‘  THE'  FOLLOWING* 

SYS- 

ENTRY  CLASS*  MAIN  .  SEGMENT*  (OBI) 

OESC*  CLOSE  OATA  HANDLER  FILE 
LENGTH*  4  _  LANGUAGE*  COMPASS 

HAS  NO  GECQNOARY  ENTRY  »OINTS 
CAN  BE  CALLED  3YJ 
DMFLSH 

CAN  CALL  THE  FOLLOWING* 

CPC 

CLRFET  K  E'n'T'ry  'CLASS  T  “SECONDARY  SEGMENT*  “  (081) 

OESC*  OATA  HANDLER  FE T  ROUTINE 
SECONDARY  ENTRY  POINT  FOR  J  SETFETR 
CAN  BE  CALLEO  BY* 

OMELSH  DMINIT 


'  CL  OCK  = 


CLOSE 


CHWR'.SQ 


CIO.  RM 
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CLRLI8  ENTRY  CLASSl  SECONDARY  SEGMENT!  (PRM2) 

_ OESC  *  Rt  SET  MATERIAL  PROPERTY  DATA  BASE  SCREEN  OPTIONS 

SECONDARY  ENTRY  POINT  FOR  I  LIBINS 

_ CAN  BE  CALLED  BY  I 

PRT  ABLE 

CLROUT  ENTRY  CLASS*  MAIN  SEGMENT!  (PR?) 

_ OE  SC !  SAVE _ DRAFTING  OATA  BASE 

LENGTH!  42  LANGUAGE!  FTN 

_ _ HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  BY! 

_ _  PRT  ABLE 

CAN  CALL  THE  FOLLOWING! 

_ GIUELT  TRKOFF _ OZSAVE  RETURN 


CJLRPIC _ ENTRY  CLASS!  MAIN  SEGMENT! 

OESC!  (NOT  AVAILABLE)' 

_ LENGTH!  142  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

_ CAN  BE  CALLED  3Y !  _ 

DETABLE  'iNTSUQ  OZRST  *  PROCXA 

_  TABDEL  INIT20  INIT3N  XYERAS 

CAN  CALL  THE  FOLLOWING! 

SET  WZ  SET1  GISU8F  GIDELT 

GISHOW “  *  OBOAD  DBDRT  DBDAC 


( M5  ) 

INITXY 

GIDAE 

I03DLF 


CLSF.RM  ENTRY  CLASS!  MAIN  SEGMENT!  (SO) 

_  OESC«  (NOT  AVAILABLE) 

LENGTH!  23  LANGUAGE!  CCMPASS 

_ HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  BY! 

_ EORSY§= Y  IELO=  RETURN__ _ 

CAN  CALL  THE  FOLLOWING! 

_  ERR. RM  MCT.RM 


CLSF.RM_  _  ENTRY  CLASS!  MAIN  SEGMENT!  (SO) 

OESC!  (NOT  AVAILABLE) 

_ LEnGTHJI_  23  _  LANGUAGE!  COMPASS 

HAS  N'cTSE'CTONOARy  ENTRY  POINTS 

_ This  entry  is  not  invoked  by  any  other  frograms 

THIS  PROGRAM  GOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 


CLSF.SQ  ENTRY  CLASS!  MAIN  '  SEGMENT!  (SO) 

_ OESC!  (NOT  AVAILABLE) 

LENGTH!*'  133  LANGUAGE  I  COMPASS  * 

_ _ _ _ SECONDARY  ENTRY  POINTS! 

RS  P  T • SQ 

_____ _ THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 

CAN  CALL  THE  FOLLOWING! 

_ ERR. RM  RM.CIO  RM.RCL A _ 

CLSV.S^ _ ENTRY  CLASS  I  MAIN  SEGMENT!  (SO) 

OESC!  (NOT  AVAILABLE) 

_ _ LENGTH!  125  LANGUAGE  I  CCMPASS 

*  HAS  NO  SECONDARY  ENTRY  POINTS 
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— 1  ■  - 


CAN  HE  called  Dy, 

GET. 50  PUT . S 1 

_ _ CAN  CALL  the  FOLLOWING! _ 

RSPT.SO  '  KP.CXO  "  "  .  . . 

CNCT90  ENTRY  CLASS  s  SECONDARY  SEGMENT!  <PR2> 

OESC!  CONNECT  NC0E3  CREATED  IN  DRAFTING 
SECONDARY  E  N  T \  y  point  FOR  I  BDSTR 

_ _ CAN  OE  CALLED  JY! _ _ _  _ _  _ _ _ 

P  R  T  A  u  L  E 

CNElEM  ENTa.y  CLASS!  MAIN  SEGMENT!  (PR11J 

DE if  »  C  0  N  v  c  R  S I  0  N ( 1 )  -  CREATE  ELEMENT  jEAD 
LENGTH:  car.  LANGUAGE!  FTN 

_ HAS  NO  S‘  IDNO-RY  entry  points 

CAN  •ft  CtuLEO  i v  ! 

ORA  W« R 

CAN  CALL  THE  FOLLOWIN&t 

ICPART  C  LE  Ar2  CNELM  IDBRSV  D3RITE 

DrfLEFT  ObSET 

CNELM  ENTRY- ClASST-MAIN  SEGMENT!  tMl) 

DESC •  LOOK  AT  ATTRI3UTE  TYPES 
LENGTH!  3b  LANGUAGE!  FTN 

MAS  NO  SECONDARY  ENTRY  POINTS 
CAN  RE  CALLEC  JYl 

_  BDSTR  FIXDAT  CNELEM  ASU87  ELNCHK 

THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

ENTRY  CLASS!  MAIN  SEGMENT!  ( PR  1 ) 

OESC!  INITIALISE  DUMMY  GRAFTING  OATA  3ASE 
LENGTH!  ilL  LANGUAGE!  FTN 

HAS  NO  SECONDARY  r N T R Y  POINTS 
CAN  BE  CALLEO  BY! 

DRAWER 

CAN  CALL  THE  FOLLOWING! 

REQUEST  DMGTMO  IFPTT  ISACT  IDBRSV 
DMINIT  RETURN 

C  f’NOOF  EnTr'y- ClXssT- haTn  SEGMENT!  ~  (PR11)  "  " . . 

OESC!  CONVERSION (II  -  CREATE  NOOE  BEAD 
LENGTH!  122  LANGUAGE!  FTN 

MAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y! 

DRAWER 

CArfCALL  fHE'Toi  LOW  IN'S!  *  ”  ‘  . . ‘  - 

_  CLEAR2  GETCOR  OMSET  IDBRSV 

CNSORT  _  ENTRY  CLASS*  MAIN  SEGMENT!  (PR12) 

OESC!  C0NVERSI0NI1I  -  HASH-SORT  NAMES  AnO  ASSOCIATED  BEAD  ADDRESSES 
LENGTH!  70  LANGUAGE!  FTN 

HAS" NO*  S E CO NO  A RY  ENTRY  POINTS  . . 

CAN  BE  CALLED  3Yl 
CNTERM  CNTER 

this  program  does  not  invoke  any  other  programs 
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*  PR  MO  ) 


ENTRY  CLASS*  MAIN  SEGMENT* 

OESC  *  CONVERSION* 1 >  -  CREATE  TABLE 
LENGTH!  362  __  LANGUAGE*  FTN 
HAS  NO  SECONDARY  ENTkY  POINTS 
CAN  3E  CALLED  BY! 

MATIN  LI0INS 
CAN  CALL  THE  following* 

PUTLIN  ICBEND  DM  SET  IOBRSV  OBRITE 
_ OBLEFT _ IODLFT _ _ 


ENTRY  CLASS*  MAIN  SEGMENT*  <PR12) 

OESC*  CONVERSION* 1 >  -TERMINATION 
LENGTH!  762  LANGUAGE!  FTN 


HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  BY! _ 

drawer"' 

CAN  CALL  THF  FOLLOWING! 

CNTER  CNSORT  RESTART 

_  OMRLBO  08RITE  OBLEFT 

I08RIT  IOBlFT  IOBDNN 

_ JIBL  KLIP _ OeUPT _  IDSACB 


EOITTI' 
OBONN 
IDBDNP 
D  BARR 


IDBFND 

OBDNP 

IDBGET 


ENTRY  CLASS!  MAIN  SEGMENT!  *PR12) 

OESC*  CON  VE  RS ION ( 1 )  -  SET  UP-  AND  DOWN- POl NT ERS 
LENGTH!  223  LANGUAGES  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

_£AN  BE  CAILED_BY_I _ 

CN  TERM 

CAN  CALL  THE  FOLLOWING! 

CNSORT  IDBFND  OBDNM  OBONP  IDBRIT 

_ IOBDNN  I  OB  NAM  OBUPT 

ENTRY  CLASS  *  _M4 IN  SEGMENT!  «OEB) 

OESC*  "CONTOUR'-  INITIALIZE  CONTOUR  VALUES 
LENGTH!  61  LANGUAGC!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY! 

DETABLE 

CAN  CALL  THE  FOLLOWING! 

RSETMG  OCX MIN  GCYMIn"  "GCYMAX 


ENTRY  CLASS!  MAIN  SEGMENT!  ( DE  9) 

OESC*  GET  TYRE-IN  FOR  CONTOUR  PLOT  TITLE 
LENGTH*  34  LANGUAGE*  FTN 

KAS_  MO  SECONDARY  ENTRY  POINTS 

'can  be  called  by* 

OET  ABLE 

CAN  CALL  THE  FOLLOWING* 

PUTEOT 

ENTRY  CLASS*  MAIN  SEGMENT*  (DE9» 

OESC*"  3f.oce ss ' Type- in"  For  contour  plot  title 

LENGTH*  14  LANGUAGE*  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 


Of SC  I  MA  KE  TYPE-IN  VALUES  CONTIGUOUS 
LINGTWl  4b  LANGUAGE*  FTN 

_SEC  JNOARY  ENTRY  POINTS*  _ _  _  . . .  _ 

C'UMPACb 

CAN  BE  CALLf  0  BY ' 

mourn  SVIfWP  3ROTET  CHNGP2  GETRAG 

I  EC  p=“C  FTVP3V  RNGOEL  RNGDRW  PTYPE 

E  UN UN  ELRtPP  EMOVE  DYSFPU  OYSSTP 

_ ATT  RNG _  ATT'TNP  FP.  MOLD  EATS  ESERCH 

‘ASERCH  SSAOFF  CNTPRE  TABXYP  TA6SCL 

TALON  PRJF4C 

THIS  PROGRAM  OOt S  NOT  INVOKE  ANY  OTHER  PROGRAMS 

ENTRY  CLASS*  MAIN  SEGMENT*  (GO) 

DISC*  FTJN  I/O  FOR  TEKTRONIX  4010/12/14 
LENGTH f  1571  language*  COMPASS 
HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  3E  JALLEO  0*1 

GINIT  GFR^SE  GFLUSH  G1ALRM  GCORAH 

GCWORK  GC'JLIM  SIOUTN  GClNPC  GIDFON 

CAN  CALL  THE  FOLLOWING* 

SYS=  '  MSG= . . . 

ENTRY  CLASS*  MAIN  SEGMENT*  (M8141) 

DESC*  CONTOUR  -  DETERMINE  CONVEX  HULL  OF  POINTS  TO  BE  CONTOURED 
LENGTH*  ISO  LANGUAGE*  FTN 
_H  A  S  NO  _SECONOARy  F  n  T  R_Y  POINTS _ 

CA N  HE  'called  JY* 

ONTO  < 

CAN  CALL  The  FOLLOWING: 

PUTLIN 

entry  class*  main  segment*  (Si) 

Of  SC*  COPY  ONE  LFOUENTIAL  FILE  TO  ANOTHER 
LENGTH  I  4  5  LANGUAGE*  COMPASS 

Has  NO  SECONDARY  ENTRY  POINTS 
CAN  HE  CALLED  >)Y  * 

FIlATT  GLChCK  ORAWFR 
CAN  CALL  THE,  FOLLOWING*  _  _ 

S  Y  S  = 

entry  class*  main  Segment*  (mii 

DESCI  (NOT  AVAILABLE) 

LENGTH*  31  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS^ 

CAN  EE ' CALLf U  iN 

FIXOAT  PCNPEN  MX  Y  P 

THIS  PROGRAM  DOfS  NOT  INVOKE  ANY  OTHER  PROGRAMS 

entry  class*  secondary  segment*  iso) 

OESC  *  (NOT  available) 

'SECONDARY  ENT  Y  POINT  FOR  VSINCOS='  . . " 

CAN  he  CALLED  )Y  s 

SROTET  SETV'J  GC30A  CNVTOC 


Entry  CLASS*  main 


SEGMENT  I 


(DBO) 


_ THIS  PROGRAM  OOP S  MOT  INVOKE  ANY  OTHER  PROGRAMS 

CNTOR _ ENTRY  CLASS  *  MAIN  SEGMENT:  (OE9) 

OESCl'  CONTOUR  -  MAIN  CONTOURING  MODULE 

length:  160  language:  ftn 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY: 

OETAULE 

_ CAN  CALL  THE  FOLLOWING! 

“'BLUNT  QL21NT  META2Z  LINESG  03JCTG 

_  SUBJEG  SCAN  CONHUL  TRIORO  TMESH3 

" TMESH2  PUTLIN 

CNTPRO  ENTRY  Class:  MAIN  SEGMENT:  (OE1) 

_ OESC  *  CONTOUR  -  PUT  U°  CURRENT  CONTOUR  PARAMETERS  TO  BE  MOOIFIEC  BY  TY 

length:  '  54'  language:  ftn 

_  HAS  NO  SECONOARY  ENTRY  POINTS 

“CAN  BE  CALLEO  BY  I 
OETA8LE 

CAN  CALL  THE  FOLLOWING! 

_ PUTEOT  I  BEAUT _ 

CNTJPRE  ENTRY  CLASS:  MAIN  SEGMENT!  (DE9) 

OESC!  CONTOUR  -  EOIT  AND  ACCEPT  TYPED-IN  PARAMETERS 
LENGTH!  110  LANGUAGE!  ETN 
HAS  NO  SECONOARY  ENTRY  POINTS 

_ (JAN  BE  CALLEO_  3Y! _ 

OETAiLE 

CAN  CALL  THE  FOLLOWING! 

PUTEOT  IOISER  ICHKEO  COMPAC  COMPACS 

CNVTOC  ENTRY  CLASS:  MAIN  SEGMENT!  (SO) 

_ OESC!  SCALING  -  CONVERT  FROM  USER  SPACE  TO  CARTESIAN  COORDINATES 

"LENGTH!  “  34  ''  LANGUAGE!  FTN 
HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY  I 

_  HOORW  PTYPE  GETCEN  GETCOR 

CAN  CALL  THE  FOLLOWING: 

_ COS. _ SIN. _ 

CNVTOU  ENTRY  CLASS!  MAIN  SEGMENT!  (G13) 

“OESC!  SCALING  -  CONVERT  CARTESIAN  COORDINATES  TO  USERS  SPACE 
LENGTH!  37  LANGUAGE:  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
_ CAN  BE  CALLEO  BY! _ _ 

moput  . . '  ■  .  . 

_ _ _ CAN  CALL  THE  FOLLOWING! 

ACOS.  ATAN2.  SORT. 

COMPACS  ENTRY  CLASS!  SECONOARY  SEGMENT!  (SI) 

_ OESC !  SQUEEZE  TYPE-IN  VALUES  INTO  ARRAYS 

SECONDARY  ENTRY  POINT'  FOR  !  COMPAC 
CAN  BE  CALLEO  BY! 

SVIEWP  CNTPRE  ElNCHK  TA3XYP  ICHKED 

COMPAC  ENTRY  CLASS:  MAIN  SEGMENT:  (SI) 


or  sc  *  system  i/o  routine 

LENGTH  I  ?G  5  LANGUAGE*  compass 

has  no  secondary  entry  points  ..  „  ... 

* .  CAN  BE  CAlLED  <1y: 

READS  RWRiTE  RWRITER.  WRITE  CLOSE 

WRI TER 

THIS  PROGRAM  Does  NOT  INVOKE  ANY  OTHER  PROGRAMS 

,-rj<  ENTRY  CLASS!  SECONDARY  SEGMENT!  (SI) 

QESC !  t ", ROR  RECOVERY  COMMAND  PARSER 
SECONDARY  ENTRY  p  II  NT  E  OR  1  OMP.CRK 
CAN  HE  CALLED  Tv: 

OMP 

OACTSN  entry  CLASS!  MAIN  SEGMENT!  <M31> 

■■  .  OESCI  display  ACTIVE  STRUCTURE  ANO  SUBSTRUCTURE  NAMES 

LENGTH!  71  LANGUAGE!  FTN 

'SlCONOAkY  entry  POINTS! 

OACTS 

CAN  oE  CALLED  By: 

OETAOLE  T  60  AC  X  _ . .  . .  . 

CAN  CALL  'THE  FOLLOWING! 

TYPNAM  iuiser  idbdrt 

NACTS  ENTRY  CLASS!  SECONDARY  SEGMENT!  <M31> 

OESCI  PUT  UP  REST  OF  STRUCTURE  AND  SUBSTRUCTURE  NAMES 

SECONDARY  ENTRY  POINT_F.OR._t_.  OACTSN . .  .  ... 

CAN  3£  'CALLED'  JYi 
TAbPRC  S  30  EE 

i  r;ARR  ENTRY  CLASS!  SECONDARY  SEGMENT!  CDB3) 

OESCI  (NOT  AVAILABLE) 

SECONDARY  ENTRT  POINT  FOR  !  IDBARR _  _  _ 

CAN  BE”  CALLED  )YS 

CNTERM  ECPROC  ECHKL 

'••ATT  ENTRY  CLASS!  SECONDARY  SEGMENT!  (OBO> 

DESC!  GET  NTH  ATTRIBUTE 

_ SECONDARY  ENTRY  pOINT_/0°  i  IDBUPP_ 

'CAN  BE  CALLED  BY:  ' 

GLSTDB  PRINCP  EQSTR  MATDEF  EUPPNT 

- - GETCNT  GETOAT  PUTATT  idrwel  idrwat 

GETCEN  GETCOR  ICKATT  igetch 

'lK'CHA  ENTRY  CLASS!  MAIN  SEGMENT!  (DB?> 

- UE  S  CV  ’Ch  AN  G’t  ’A  TTkI’-jUTT- VALUE  IN  DATA  BASE  . 

LENGTH!  6F>  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY  s 

PKINCP  EGSTR  BDSTR  FIXDAT  MAT  OEF 

EUPPNT  EATS  I03ACB 

5  f-.r  -  j  «  _  l_— Y  he'  FOLLOWING! 

IFATT  DB3ET  IUBTYP  I  DOST  A  IOeCAN 

OMCHHD  ENTRY  CLASS!  MAIN  SEGMENT!  (DBO) 

OESCI  CHECK  IF  BEAD  IS  ALREADY  ON  THE  CHANGE  LIST 


_ _ LENGTH  1  126  LANGUAGE  I  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

_ CAN  8E  CALLED  OY: 

OBRITE IDUCAN  03UPT  I D8ARR 

CAN  CALL  THE  FOLLOWING! 

OMGTBO  OMSET  I08TYP  ID3LEN  IOBGET 

06CHNH  ENTRY  CLASS!  MAIN  '  SEGMENT!  (D81) 

_ DESC  *  CHANGE  n4mE_0F  EXISTING  BEAD 

LENGTH!  213  LANGUAGE!  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  8E  CALLEO  3Yi 

_ EATS 

CAN  CALL^THE  FOLLOWING! 

_ Q8RIJE _ OfiLEFT _ 08  NAME  IOBRIT  IDBLFT 

ID8TYP  ID8NAM  QBLKUP 

OBDAC  ENT RY  CLASS! 'SECONDARY'  SEGMENT!  (08  0) 

_ _ DESC  1  SET  ACTIVE  FLAG 

SECONDARY  ENThY  POINT  FOR  I  DBRITE 

_ CAN  8 E_L  ALL  ED  3 Y  ! _ _ 

INTSU3  CLRPIC  IQl.WAT  ACTIVA 

dboao  entry  “c^assT ‘secondary  segment!  (Obo) 

_ DESC!  SET  XIDOAD* 

SECONDARY  ENTRY  POINT  FOR  1  DBRITE 

_ £AN_BE  CALLEO  BYl _ 

IN  T  S'JB  DZRST  CiRPlC"  ICKBYT  IDRWAT 

_  ORWACT  IORHSS  IDRWST  IDRW  DELETE 

ACTIVA 

OBOEL  ENTRY  CLASS!  MAIN  SEGMENT!  (0B2) 

_ OESCi  OELEJE  A  BEAD  AT  A  LEVEL  AND  ALL  REFERENCES  TO  IT 

LENGTH!  106  LANGUAGE!  FTN 

_ HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  BY l 

_  DRAWER  EQNUM  EQPEN 

CAN  CALL  THE  FOLLOWING! 

_ OBRITE _ D3LFFT  _ IOBRIT  IDBLFT  IDBUPN 

iOBONN  “  I OBT Y P  I08UPP  IDBDNP  03UPT 
_ _  OBONT _ _ 

OBOLF  __  ENTRY  CLASS!  SECONDARY  SEGMENT!  (DB0) 

. OESCI  SET  LEFT  ACTIVE  POINTER 

_ SECONDARY  ENTRY  POINT  FOR  I  DBRITE 

CAN  BE  CALLED  BY l 

_ __  MXYP  DELETE  ACTIVA  IDDCAN 

OBONN  ENTRY  CLASS  I  SECONDARY  SEGMENT!  (DBO) 

OESCI  SET  NUMBER  OF  DOWN  POINTERS 
SECONDARY  ENTRY  POINT  FOR  I  DBRITE 

CAN  BE  CALLED  3Y1  .  . ”  " 

_ CNTERM  CNTER _  DBUPT 

obonp  entry  classi  secondary  segment!  obo> 

DESC!  SET  NTH  DOWN  POINTER 


’( 
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SECONDARY  ENTRY  POINT  E OR  *  DBRljE 
CAN  3E  CALL  EO  3Y l 

_ CNTERM  CNTER _ El.FEP.P I03CAN  D3UPT 

olont  entry  class*  secondary  segment*  ne2> 

. DESC!  SET  Ok  REMOVE  THE  DOWN  POINTER  OF  THE  BEAD  LISTED 

SECONuARY  EMTkY  POINT  FOR  *  OdUPT 
CAN  BE  CALL  EO  BY* 

_ dOSTR FIXCAT EMERGE  PORG  ERD 

ERNOLO  "EADOWN  ESERCH DBDEL  EADOEl 

3  PORT  ENTRY  CLASS*  SECONDARY  SEGMENT*  COBQ) 

□ESC*  SET  RIGHT  ACTIVE  POINTER 
SECONDARY  ENTRY  POINT  FOR  *  09RITE 

_ CAN  BE  CALLED  )Y : 

REACT"  "  I  NT  SUB*  DZmST'  "RESTART  CLRPIC 

_ T  AS  ACT  DELETE  ACTIVA  IDBCAN 

OBINIT  ENTRY  CLASS*  MAIN  SEGMENT*  ( OB  II 

DESC*  INITIALIZE  CREATED  DATA  BASE 

_ LENGTH*  _ 404  _  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS  "  . " 

CAN  BE  CALLED  BY* 

REACT  FILATT  ORAWFR 

_ CAN  CALL  THE  FOLLOWING* 

~ .  ICC HR  OMSET  DMGET  IFATT  IDBRSV 

_ DM  I  NIT _ RETURN _ 

08LEFT  ENTRY  CLASS*  SECONDARY  SEGMENT*  (D80* 

QESC*  SET  lFFT  POINTER  IN  DATA  BASE 
SECONDARY  ENTRY  POINT  FOR  *  OBRITE 
CAN  BE  CALLEO  BY* 

_ CNELEM _ CNTERM _ CnTABL  DBCHNM  IDBCAN 

IOdACB  060EL ' 

OBLEN  ENTRY  CLASS*  SECONDARY  SEGMENT*  (DBO) 

OESC  *  SET  BEAU  LENGTH 

SECONDARY  ENTRY  POINT  FOR  I  DBRITE 

CAN  BE  CALLED  BY* 

'IDBRSV'  I D  3D  AN*  ~ . . . ~ 

UdLKUP  ENTRY  CLASS*  MAIN  SEGMENT*  (DBl) 

DESC  *  ALLOWS  APPLICATION  To  DELETE  AND  ADO  BEADS 
LENGTH*  14  H  LANGUAGE*  FTN 

_ HAS  NO  SFCONOARY  ENTRY  POINTS 

CAN  BE  CALLEO  BY  * 

CNTERM  O/RST  EOMUM  ECPROC  EQPEN 

OZSAVF  0  t*C  HNM 

CAN  CALI  THE  FOLLOWING* 

OBTYP  IUdRIT  IOoTYP  IDBNAM 

Do  NAME  EnTRY'‘£LTSSS_*~  SECONDARY  SEGMENT*  (DBO) 

DESC*  SET  NAME  IN  BEAD 

SECONDARY  ENTRY  POINT  FOR  *  DBRITE 

CAN  BE  CALLEO  BY* 

ODCHNM  IOBAOB 
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DBRITE  ENTRY  CLASS  I  MAIN  SEGMENTl  ( 08  0> 

_ OESC  *  SET  RIGHT  POINTER  IN  r  AT  A  3ASE 

LENGTH»  ?S6  LANGUAGEI  FTN 

SECONDARY  ENTRY  POINTS* 


03LEFT 

OBUPS 

DBUPN 

OBUPP 

DBONN 

OBONP 

OBTYP 

OBLEN 

DBOAO 

OBSTAT 

03NAME 

OdSET 

UBDLF 

OBORT 

□  60  AC 

CAN  BE  CALLEO  BY: 

CNELEM 

CNTERM 

~CNTA6L  “ 

DBCHNM 

IOBCAN 

I08A0B 

OBOFL 

CAN  CALL 

THE  FOLLOWING: 

OMSET 

DBCHQO 

ID&UPS 

IDBTYP 

IOBOAD 

IOBSTA 

'  "oFs'ET  ENTRY  CLAS ST- SECONDA R  Y  segment:  '  (080) 

OESC:  SET  NTH  LOCATION  IN  BEAD 
'  SECONDARY  ENTRY  P Ox  NT  FOR  :  DBRITE 
CAN  BE  CALLEO  BY: 

CNELEM  IUdCAN  08CHA  OBUPT 

OBSTAT  F?Tf  CLASS’:  "  SECONO ARY  SEGMENT:  f  OB  0 » 

OESC:  SET  START  OF  ATTRIBUTE  LIST 
SECONDARY  ENTRY  POINT  FOR  :  LB RITE 
CAN  BE  CALLEO  SY: 

'  OBUPT  IGQAOB  " 

“oefGEf  eTTtry  class:  mTin  “segment «  cob3» 

_ _ OESC :  GET  VALUE  IN  TABLE 

LENGTHi  1 33  LANGUAGE:  FTN 

_  HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  UE  CALLEO  BY: 

GETOAT 

CAN  CALL  THE  FOLLOWING':  . ' 

_  OMSET  OMGFT  IOdTYP  I08STA  IOBARR 

OBTYP  ENTRY  CLASS:  SECONDARY  SEGMENT:  <DB0) 

OESC:  SET  TYPE 

SECONDARY  ENTRY  POINT  FOR  :  DBRITE 
W  B  E  C  ATX  £  0  9  y  i 
08LKUP  I03A0B 


OBUPN  ENTRY  CLASS:  SECONOARY  SEGMENT:  fOBO» 

OESC »  SET  NUMBER  OF  UP  POINTERS 

_  SECONOARY  ENTRY  POINT  FOR  :  OBRITE 

CAN  BE  CALLED'  3Y I  ' 

_ _  OBUPT 

OBUPP  ENTRY  CLASS:  SECONOARY  SEGMENT:  ( 0  8  0  > 

"  OESC:  SET  NTH  UP-POINTER 

_ SECONOARY  ENTRY  POINT  FOR  :  DBRITE 

CAN  BE  CALLEO  3Y I  ’ 

_ _____ _ I08CAN  OBUPT 

OBUPS  ENTRY  CLASS:  SECONOARY  SEGMENT:  (OBO) 

OESC:  SET  START  OF  UP-POINTERS 
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SECONDARY  ENTRY  point  for  t  dbrite 
CAN  BE  CALLED  BY i 

_ _  OUUPT _ _ I  D3AU3 _ . _ 

OBUPT  ENTRY  CLASS  1  MAIN  SEGMENT*  (OB?) 

OESCi  SET  OR  REMOVE  THE  UP  POINTER  OF  THE  8EA 0  LISTED 
LENGTH?  761  LANGUAGE*  FTN 
SECONDARY  ENTkY  POINTS* 

_ OBONT _ _ _ _ 

CAN  BE  CALLED  TYS 


BDSTR 

FIX.jAT 

CnTERM 

CNTER 

EMERGE 

PORG 

ELR( PP 

ERO 

ERNDLO 

EAOOWN 

ESERCH 

DCOtL 

CAN  CALL  THE 

FOLLOWING* 

OBCH-jO 

OuUPS 

D8UPN 

DBUPP 

DBDNN 

OBUNP 

DBS TAT” 

OB  SET 

ICBUPS 

I03UPN 

IDBONN 

ICBTYP 

IOESTA 

I DBUPP 

IDBDNP 

I06GET 

IOBCAN 

ENTRY  Class* 

MAIN 

SEGMENT* 

(M3  2) 

OESC*  (NOT  AVAILABLE) 

LENGTH*  ’  i*Y  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

.  CAN  aE  CAILFD  BY l 

DRAWER  NYINIT  DE IN  IT  PRINIT  PPINIT 
CAN  CALL  T H c  FOLLOWING* 

_ _ GICAT _ gun II _ 61  ERR . . .  . . .  .. 

OE IN  IT  ENTRY  CLASS!  MAIN  SEGMENT*  (M 321 

OESC!  INITIALIZE  01 SPLA Y-AN D-EDIT  MENUS 
LENGTH*  16  LANGUAGE*  FTN 

"HAS  NO  SECONDARY  ENTRY  POINTS 

_ CAN  SE  CAL L_E  0  OYj _ _ 

F  XT  AuLE 

CAN  CALL  THE  FOLLOWING* 

STARTM  OEINIT1 

OEIETE  ENTRY  CLASS*  MA  IN  SEGMENT*  IG0> 

OESC*  DEACTIVATE  BEAD  AND  ERASE  THE  PICTURE  FROM  THE  SCREEN 
.  LENGTH!  12  7  'LANGUAGE*  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  3E  CALLED  BY* 

ALLOFF  RNGDEL  EQNUM  DELPIC  RETAIN 

'  “  "  SSA  OFF  EuPEN  SSOFF 

CAN  CALL  THE  FOLLOWING* 

SIOElT- —0oDA3  D60LF  DBDRT . ID3DA  D 

IOBDLF  ICKACT 

DELPIC  ENTRY  CLASS!  main  SEGMENT*  (DEI) 

OESC*  DELETE  AnO  DEACTIVATE  ALL  PICKED  SEAOS  ON  A  LEVEL 
LENGTH*  16  LANGUAGE*  FTN 

HAS  NO  'SEiCONOARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY* 

.  0ETA3LE 

CAN  CALL  THE  FOLLOWING* 

-  DELETE  M  GF AD 
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oelsf  'entry  class*  main  segment*  <gi2> 

_ DESC  *  DELETE  IN1ERTEK  SU3EILE 

LENGTH*  '60  language*  ftn 
HAS  NO  SECONDARY  ENTRY  POINTS 

can  be  called  an 

MOFRZ 

CAN  CALL  THE  FOLLOWING* 

_ G_I  DEL  J _ G I SHOW _ _ 

OETABLE _ ENTRY  CLASS*  MAIN  SEGMENT*  (DRIVE* 

DESC*  DISPL AY-AnD-EOI T  SUBROUTINE  SWITCH  TABLE 


LENGTH*  507  LANGUAGE*  COMPASS 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY* 


STARTM 

GLI NIT  ~~ 

CAN  CALL  THE 

following* 

SWITCHS 

IOEOEC 

ALLON 

ALLSON 

ALL  OFF 

asubs 

OZRST 

ET YPSV 

CNTPRD 

RNGDEL 

RNGORW 

P  ON  PE  N 

PTY*>E 

EQNUM 

EMERG 

EMERGE 

DRWAT  A 

ORWATT 

DELPIC 

EON  PO 

EONPEN 

EOINIT 

ECHN1T 

ELREPL 

ELREPP 

RETAIN 

RET  A  I S 

EMOVE 

E MOVE  P 

MX  Y I 

MXYP 

DY0P.3E 

DYLOAD 

OYMOOE 

DYTIMS 

OYSFPU 

OYSFPR 

OYSSTP 

OYUNOE 

CYOEF 

ATTLST 

ATT  PRC 

ATT  REN 

ATTRNG 

ATT  RN  P 

L ANODE 

LFNOOE 

NOD  ON 

NODAEL 

NOOFEL 

ECHONO 

ECHONU 

ECPROC 

ECREAN 

ERDOWO 

ERDOWU 

EROO 

EROU 

ERNOLO 

ERNAOD 

ERNAOU 

EACTPN 

EAUTP 

EADQWN 

EAUP 

EALLS 

EALLO 

EALLSS 

EATS 

EATCH 

ENOOWN 

FNUP 

EPUTDN 

EPUTUP 

ESERCH 

ASERCH 

ASEP.CHA 

SSAOFF 

C  NT  OR 

CNTPRE 

CNTINT 

CNTITL 

CNTIT2 

GETCNT 

PRO CXA 

PROCYA 

REPXY 

RSCXY 

TA3RDR 

INITXY 

gslxly 

GSLXGY 

gsgxly 

GSGXGY 

LSSLD 

LSSOH 

LSLCH 

TABL1N 

PROCTIT 

TABVAL 

TABINO 

PKOCCHR 

TAaOEL 

EQPEN 

EQ  PEN  N 

STKACT 

SSTACT 

ELEACT 

NOOACT 

1NIT2D 

INI T  JN 

CLRPIC 

XY  ERAS 

XYRET1 

XYRET 

SEL ATT 

SELAT1 

TABACT 

TA3ACX 

TABACY 

TAbPRC 

T  ABXYP 

T6BXYM 

TABSCX 

T  ABSC  Y 

TABSCL 

T-30M 

TABXI 

TA3YI 

TA3XC 

T  A  BYD 

TAUXN 

TABYN 

PUTLST 

SSOFF 

OACTSN 

PUTNAM 

PUTNMM 

EXINIT 

MOPU 

MOREC 

MOCYL 

MOCPH 

PLIN1T 

SPSBL 

spsblc 

PUTATT 

ACTATT 

ATTOFF 

FROFAC 

repfa 

QTITLE 

ORWSS 

ONPEN 

ONPENE 

_  ONPENN 

T A  OPEN 

OZSAVE 

EADDEL 

OISPLB  ENTRY  CLASS* 

MAIN 

SEGMENT*  (PRM1* 

OE SC  *  DISPlA 

;y  •  generic 

mater: 

AL  NAMES 

LENGTH  I 

b< 4  LANGUAGE* 

FTN 

HAS  NO  SECON 

Q  A  R  Y  ENTRY  POINTS 

CAN  BE  CALLED  BY* 
PRT ABLE 


'  ( 
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_ CAN  CALL  THE  FOLLOWINGI 
TYPVAL  OMGET 

' 0H80A0  ETnT RY~ CLASS*  HA  IN  SEGMENT!  '  (OBO) 

OESC!  (NOT  AVAILABLE! 

LENGTH!  46  LANGUAGE!  FTN 

HAS  NO  SFCOnDmRY  ENTRY  POINTS 
CAN  BE  CALLED  JYt 
OMRL  :SD  OMSTGT 

fwi S'  PROGRAM  GOES  NOT  INVOKE'ANY  OTHER  PROGRAMS 

DMFLSH  ENTRY  CLASS!  MAIN  SEGMENT!  (DB1I 

OESC!  FLUSH  DATA  HANDLER  FILE 
'LENGTH!  140  LANGUAGE!  FTN 

HAS  NO  5ECONOARY  ENTRY  POINTS 
CAN  “BE  CALICO  QV: 

RESTART  OHINIT 

"can  call  The  following! 

DMWRITE  OUT^UF  RWkITER  FCHPRAM  FETSTAT 

CLOSE  SETFETR  CLRFETR 

ohfv  entry  class i “main  segment!  « db o> 

□ESC!  (NOT  AVAILABLE! 

"LENGTH!  140  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
"CAN  BE  CALLED  B y« 

OMGTBU  OMRLBO  OMSTGT 

THIS  PROGRAM  DOES  NOT  INVOKE  AMY  OTHER  PROGRAMS 

DMGET  ENTRY  CLASS!  SECONOARY  SEGMENT!  (OBO> 


OESC!  GET  OATA  HANDLER  3EA0  FIELD 
SECONDARY  ENTRY  POI NT  FOR  I  DMSTGT 
CAN  BE  CALLEO  BY! 


IGNM 

OISPLB 

LI  BIN 

IIBINS 

CZRST 

RESTART 

IGPCKM 

GCGARR 

GCSSF 

IGFTR 

IFATT 

DBTGET 

IGATT 

IOBARR 

IOBRIT 

IDBUPP 

DBINIT 

0MGT80  ENTPY  CLASS 

!  MAIN 

SEGMENT! 

(  DB  0 » 

"  OESC ‘‘"RESERVE  SPACE' FOR  NEW  OATA  HANDLER  BEAD 

LENGTH!  S  7  3  LANGUAGE!  FTN 
—  HftS  NQ  SECONDARY  ENTRY  POINTS 
SAN  BE  CALLEO  3YI 

CNNEW  RESTART  GCKESI  DBCHDO  I03RSV 

CAN  CALL  THE  FOLLOWING! 

"OMREACi  DMWRITE  DMFV  SYSTEM  FCHPRAM 

OMINiT  ENTRY  CLASS!  MAIN  SEGMENT!  (DB  1) 

OESCt  INITIALIZE  OATA  HANDLER  FILE 

. ~  LENGTH!  36G  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN' BE  CALLED  BY: 

startm  CNNFW  myinit  ginit  DBINIT 

CAN  CALL  THf  FOLLOWING! 

GOTOER.  ITOJ.  system  IN9UF  OUT  3UF 

RE  A  OR  FCHPRAM  FETSTAT  DMFlSH  RFILEB 


WRITER  SETEETR  CLkFETR 


o.mp _ entry  class*  wain  segment*  isii 

OESC!  ERROR  RECOVERY  OEuUG  DUMP  ROUTINE 
_  LENGTH!  <573  LANGUAGE!  F  TN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  OE  CALLED  BY! 

HOLO 

_ C  At\|  CALL  THE  FOLLOWING! 

I8EAUT  GETLIN  PUTLIN  '"GOTOER.  CRAK 

_ I OCTAL  _  _ 

OMP.CRK  ENTRY  CLASS*  MAIN  SEGMENT*  (SI) 

OESC  *  (NOT  AV  AIL A8L  E) 

LENGTH!  SO  LANGUAGE!  COMPASS 

SECONDARY  ENTkY  POINTS! 

_ _____  CRAK 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 


OHREAO _ ENTRY_CLASS  I  _MAIN  _ SEGMENTl  (DBO) 

OESC!  (NOT' AVAILABLE! 

_ LENGTH!  127  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

_ _ CAN  BE  CALLED  BY! 

OMGTBO  OMRLUO  DMSTGT 

_ CAN  CALL  THE_FOLLOWlNGI 

INOUF  REAOR  FETSTAT 

OMRLBO  “ENTRY  CLASS!  M4IN  SEGMENTl  (DBO) 

_ OESC!  RELEASE  DATA  HANDLER  BE  AO 

LENGTH!  270  LANGUAGE*  FTN 

_ HAS_NO_SECONOARY  ENTRY_POINTS_  _ 

CAN  BE  CALLEO  BY! 

___ _  CNTERM  G13UTN  GIGLRO  IFATT  ID6CAN 

CAN  CALL  THE  FOLLOWING* 

_  OMREAO  OMWRITE  OMBDAO  DMFV  SYSTEM 

FCHPRAM  setpram 

OMSET  E  N  T  R  yTTa  S'STSEC  0  N  OA  RY  SEGMENT*  (D6  0! 

OESC!  SET  VALUES  INTO  DATA  HANDLER  BEAD  FIELDS 
‘SECONDARY  ENTRY  POINT  FOR  *  OMSTGT 

_  CAN  BE  CALLED  BY! 

ICPART  CNNOOE  CNTABL  02RST  RESTART 

_ GCGARR _ GCSSE  _  OBCHBD  IFATT  OBRITE 

0  01 NIT  OZSAVE  08TGET  I03ARR 

OMSTGT  ENTRY  CLASS*  MAIN  SEGMENT*  (DBO) 

_ OESC*  (NOT  AVAILABLE) 

LENGTH!  606  LANGUAGE!  FTN 

_  SECONDARY  ENTRY  POINTS* 

ONSET  OMGEt" . . . . 

_ _ _ _ _ THIS  ENTRY  is  NOT  INVOKED  BY  O  OTHER  PROGRAMS 

CAN  CALL  THE  FOLLOWING! 

_ _  GOTOER.  PCUMP  OM-.EAO  OMHRITE  OMBOAO 

OMFV  SYSTEM 
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OMWRITE 


SEGMENT  I 


1080) 


ENTRY  class  i  MA  IN 
OESCI  (NOT  AVAILABLE) 

LENGTH!  '204  LANGUAGE*  ETN 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  OE  CALlEO  BY! 

OMGTtiO  0  MRL  JO  OMSTGT  OMFLSH 
CAN  CALL  THE  POLL  DA  I NG  * 

_ OUTBUf _ R WRITE _ RWRITER.  EETSTAT  WRITE 

D RAWER  ENTRY  CLASS!  MAIN  SEGMENT*  (PRO) 

DE5C  !  lNlTIALI<?r  DRAFTING  PACKAGE 

_ LENGTH!  151  LANGUAGE*  ETN 

.  HAS  no  SECONDARY  ENTRY  POINTS 

CAN  OE  CALLED  BY* 

PRT  ABLE 

CAN  CALL  THE.  FOLLOWING* 

_  -  ORIO  SETNO  CNNEW  CNELEM  CNNOOE 

CNTERM  GEONIT  INIT2D  OEINIT1  COPYFL 

IQBFNQ  DdINIT  RETURN  D80EL 

ORELN  ENTRY  "'C'lA'SsT- ha  In  SEGMENT*  "  (PRM1) 

OESCI  (NOT  AVAILABLE) 

~~  LENGTH!  1 5  4  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

Can  be  called  jy* 

_  ASUB4_ 

“CAN  CALL  THE  FOLLOWING* 

GETCEN  GITEM  GU1F.XT  GUSETP  IOINF 

UTORAS  ICCHP  IBEAUT  IDBDNN  I’JUORT 

IOBJNP  I03NAM 


DRIVER 


ENTRY_CLASSs  TRANSFER  SEGMENT*  (DRIVE* 
OESCF  the  EXECUTIVE  AND  MAIN  PROGRAM 
LENGTH!  1005  LANGUAGE*  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 


THIS  ENTRY 

IS  NOT 

INVOKEO  BY 

ANY  OTHER 

PROGRAMS 

CAN  CALL  THE  FOLLOWING* 

GLOINT 

MARY, 

EXITT 

SWITCH 

ISWTCHO 

OL1INT 

GRFNIT 

PAGER 

ERASE  N 

IPICK 

PUTEDT 

IGPCKM 

IGCFV 

IPPRMT 

IREAD 

MENNIT 

~  GISUBF 

~ GCORAW 

GCHIGH 

GCWIDE 

GITEM 

GIOELT 

IDISER 

G I3NGL 

GISTR 

GIPARM 

G1CLRD 

‘  GUTEXT 

GUSETP 

GISHOW 

Q8NTRY. 

STOP. 

GOTOER. 

IGFTR 

IGSON 

IGLNK 

IG'acT 

IGRUT 

IGT8L 

IGPSX 

IGPSY 

IGOPT 

ORWACT 

ENTRY  CLASS*  MAIN 

SEGMENT*  (M8  20) 

OE  SC  *  REDRAW  ALL  ACTIVE  BEADS  ON  THIS 

LEVEL  THA 

LENGTH ! 

352 

LANGUAGE  * 

FTN 

SECONDARY 

ENT  KV  POINTS* 

DRWONE 

DRWARR 

OP.NNOC 

CAN  8E  CALLED  BY* 

MORORW 

MOASHK 

ARE  DRAWN 


CAn  Call  The  following) 
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IORWAT 

IORW 

GIDELT 

IDISER 

OBDAD 

IOBOAO 

IOiGRT 

IDBOAC 

ICKACT 

OR  HARR  ENTRY  CLASS  *~  SECONDARY  SEGMENT*  (M820) 


OESCt  DRAW  ALL  LEADS  IN  THE  ARRAY  IN  THE  ARGUMENT  LIST 
SECONDARY  ENTRY  POINT  FOR  I  DRW ACT 

_  CAN  G£  CALLED  BY* 

EQUEUP 

orwaTa  entry" Tla  ss~ “main  s  egmenti  <  q  e  i  ) 

_ OESC*  ORAN  THE  ATTRIBUTE  FOR  ALL  BEADS  CN  THIS  LEVEL  THAT  ARE  ACTIVE 

LENGTH*  S3  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

Can  be  called  by* 

_ 0ETA8LE _ _ _ 

CAN  CALL  The  FOLLOWING! _  . 

_ IORWAT _ IOBORT _ IDBOAC 

ORHATT  ENTRY  CLASS*  MAIN  SEGMENT*  t  DE 1  > 

DESC*  DRAW  THE  ATTRIBUTE  FOR  EACH  BEAD  PICKED 

_ LENGTH* _ 21  _  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY* 

DE TABLE 

_ CAN  CALL  THE  FOLLOWING* 

IDRWAT  MBEAO 

DRWNOC  ENTRY ~CL A  3ST~SEC ON  0  A RY  SE  GHENT  I  CM6  20> 

_ OESC  *  REDRAW  ALL  ACTIVE  BEADS  WITHOUT  ERASING  THE  ORIGINAL  VERSION 

SECONDARY  ENTRY  POINT  FOR  I  ORWACT 

_ CAN  BE  CALLED  3Y * 

DYOROE 

ORWONE  ENTRY  CLASS*  SEc’onOARY'  SEGMENT*'  (M82Q) 

_  OESC*  Draw  THE  ONE  BEAO  IN  THE  ARGUMENT  LIST 

SECONDARY  ENTRY  POINT  FOR  *  ORWACT 

_ CAN  BE  CALLED  BY* 

MOISHK  ELRFPP  MX YP  EUPPNT  ERD 

_  ERNOLD  EADOWN  EATS 


DRWSS  _ _ ENTRY  CLASS*  MAIN  SEGMENT*  (M821) 

OESC*  DRAW  ALL  ACTIVE  SUBSTRUCTURES 

_ LENGTH*  26  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY* 

'  BETA  JLE  ‘  A  CU')4  ' 

_  CAN  CALL  THE  FOLLOWING* 

IORW  I0U0RT 

OXIT.SQ  ENTRY  Class*  SECONDARY  segment*  (SO) 

DESC*  (NOT  AVAILABLE) 

secondary  e nt *y  point' for' r  get. sq  ' 

CAN  be  CALLEO  by* 

SKFL.SQ 

DYOEF  ENTRY  CLASS*  SECONDARY  SEGMENT*  ( DE  3) 
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_ _  OE  SC  t  SET  OfFOP.MEO  PLOT  MODE 

SECONDARY  ENTkY  POINT  FOR  I  DYUNDE 

_ CAN_BE  CALLED _UYJ _ _ _  _ 

OE  TABLE . 

OYOROE  ENTRY  CLASS  I  PA  IN  SEGMENT!  <0E3» 

OESCI  DRAW  OE FOf.MED  PLOT  FOR  ALL  ACTIVE  BEADS 
LENGTH!  23  LANGUAGE!  FTN 

_ HAS_NO_SECOND ARY  ENTRY  POINTS  _ 

CAN  BE  CALLEO  BY!  . . 

_ _____  DETABLE 

"CAN  CALL  THE  FOLLOWING! 

__________  .JIRWNOC 

OYLOAD _ ENTRY_CLASS»  MAIN  _  SEGMENT!  ( OE  3) 

OESCI  °l)T  UP'VloAD  STEP#  TYPE-IN  FOR  DEFORMED  PLOTS 

_  LFNGTH!  52  LANGUAGE!  FTN 

SECONDARY  ENTkY  POINTS! 

OYMOOE  OYTIMS 
CAN  BE  CALLEO  BY! 

_ OETA3LE _ _ 

CAN  CALL  THE  FOLLOWING!  . . 

_  PUTEOT  IGEAUT 

OYMOOE  _  ENTRY  CLASS!  SECONOARY  SEGMENTl  (0E3) 

OESCi  °UT  U°  YMODE  SHAPE*  TYPE-IN  E OR  DEFORMED  FLOTS 

_ SECONDARY  ENTRY  POINT_EOR  I  DYLOAD 

CAN  BE  CALLEO  3YI 

_ _ OET  ABLE  _  _ 

oysfpr _  entry  classi  seconoary  segment!  <dE3) 

OESC  !  CRACK  SCALE,  FACTOR,  OR  TIME-SLICE  TYPE-IN 
SECONDARY  ENTRY  POINT  FOR  I  DYSFPU 

CAN  BE  CALLEO  BY !  . 

_  OET A  OLE  _ 

DYSFPU  ENTRY  CLASS!  MAIN  SEGMENTl  <DE3> 

OESc's  P'JT  UP  SCALE  FACTOR  TYPE-IN 
LENGTH!  71  LANGUAGE!  FTN 

SECONDARY  ENTRY  POINTS!  . .  . . . 

DYSFPR 

CAN  BE  CALLEO  BY  I 
OETAjLE 

“'“can  CALL  the  FOLLOWING! 

_ PUTEOT  IOISER  IBEAUT  ICHKEO  COMPAC 

OYSSTP  ENTRY  CLASS!  MAIN  SEGMENTl  (DE3) 

oesc;  process  step  for  deformed  mode 

LENGTH!  5  3  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y! 

OET A:>LF  " 

CAN  CALL  THE  FOLLOWING! 

ICKSL  PUTEOT  IOISER  I9EAUT  1CHKED 

COMPAC 


0  YT IMS 


ENTRY  CLAoSS  GEL ONOARY  SEGMENTI  C  0  T  3 i 

OESC  I  PUT  UP  t T IMF  ST  CP  y  TYPE-JN  FOR  OE  FORMED  PLOTS 
^SECONDARY  ENTRY  POINTFOR  I  DYLOAD 
CAN  BE  CAILEO  BY  I 
QETAoLE 

OYUNOE  _  ENTRY  CLASS  1  PAIN  SEGMENTI  I0E3> 

OESC  *  SET  UNOEFORME 0  PLOT  MODE 

_ LENGTHI  2*5  LANGUAGE!  FTN 

"SECONDARY  ENTRY  oOINTS! 

DYOEF 

CAN  BE  CALl'EO  BY! 

______  OET  ABLE 

CAN  CALL  THE  FOLLOWING! 

ICKSL 


QZRST  ENTRY  CLASS!  MAIN  SEGMENT!  (OE1) 

OESC«  RESTORE  CHANGEO  BEADS  TO  ORIGINAL  STATE 

_ LENGTH!  145  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 

_ CAN  BE  CAlLEQ  BY! _ 

OET ABLE 

_ CAN  CALL  THE  FOLLOWING! 

C  L R D I C  OMSET  OMGET  OBOAO  D30RT 
IOBGET  OBLKUP 


_P_Z$ AVE _ ENTRY,  CLASS!  MAIN  _  SEGMENT!  (CBl) 

OESC!  SAVE  THE  CHANGED  CATA  BASE 

_ _ LENGTH!  22  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 

_ CAN  BE  CALLED  BY! 

OET  ABLE  CLROUT 

_ C.AN  CALL  THE  FOLLOWING! _ _  _  . 

OMSET  OELKUP 

EACTPN  ENTRY  CLASS  I  MA IN  SEGMENTI  (DE7) 

_ OESC!  ACTIVATE  A  BEAD  FROM  A  PICK  ON  A  OISPLAYEO  ITEM 

LENGTHI  26  LANGUAGE!  FTN 

SECONOARY  ENTRY  POINTS! 

EACTP 

_ CAN  OE  CALLED  BY! 

OET  ABLE 

CAN  CALL  THE  FOLLOWING! 

PUTNM  ~  ESLOT  "  M8EAD 

EACTP  ETTtTy"  cUas  s7~sTCO  NO  A  RY  SEGMENT!'  ~  (0E7) 

_ _  OESC!  CHECK  IF  THERE  ARE  MORE  NAMES  FOR  ACTIVATION 

SECONOARY  ENTRY  POINT  FOR  I  EACTPN 
CAN  BE  CALLED  BY| 

OETAoLE 

"EAOOEL  entry  CLASS!  MAIN  SEGMENT!  (OB2) 

OESC!  ADO  ALL  ACTIVE  ELEMENTS  TO  SUBSTRUCTURE 
LENGTHI  25  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLED  3YI 
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_  DETARLE 

CAN  CALL  THF  FOLLOWING* 

_ 10804? _ OPJNT _ _  _ _ _ 

eaoown  _  entry  class  t  main  segmenti  (de?> 

OESC*  A 'ju  jrmn-POINTERS  FROM  A  CROSSHAIR  PICK  OF  A  DISPLAYED  ITEM 
LENGTH*  IOC  LANGUAGE!  FTN 
.  SECONDARY  entry  POINTS* 

_ E  A  U  P  _  _  _  _  _ 

can’  -U  '  CALLED  'lY !  "  . ~ 

OFT.WLE  E  NOOWN 

. .  CAN  call  The  FOLLOWING* 

_ DRWONE  IDOL-AO  HBEAD  ICKACT  OBUPT 

DODNT 

TaLLD  EN'fRY- CfAS’sT- ■ SECOND  ARY  SEGMENT*  '  '  (0E7) 

DESC*  ACTIVATE  all  BE  AOS  FOR  THIS  DATA  BASE  LEVEL 
"SECONDARY  ENTRY  POINT  FOR  I  EALLS 
CAN  BE  CAlLEO  3Y i 
OETAuLE 

______  ETTfR Y  CUh S §1  SEATON 0 A R V  SEGMENT*''  (OE7) 

OESC*  ACTIVATE  ALL  BE  AOS  IN  THE  ACTIVE  SUBSTRUCTURE 
—  SECONDARY  ENT  i*Y  POINT  FOR  *  EALLS 

CAN  BE  CALLEO  BY* 

DETABLE 

EALLS  ENTR’Y “CLASS  * '  MATn  SEGMENT*  <0E7) 

OESC!  ACTIVATE  ALL  BEADS  ON  SCREEN 
'LENGTH:  41  LANGUAGE*  ftn 

SECONDARY  ENTRY  POINTS* 

EALLO  EALLSS 

_ CAN  3E  CALLEO_OY_* _ _  _ 

oetable  '"  "  . .  . . . 

CAN  CALL  THE  FOLLOWING* 

ESLOT  ICBLFT  I08DLF 

EA  f C  H  ENTRY  CLASS*  SECONDARY  SEGMENT*  (OE  7) 

OESC*  00  ACTUAL  CHANGING  OF  ATTRIBUTES 
SECONDARY'  ENTRY  ‘POI  NT  FOR  *  EATS 
CAN  9 £  CALLEO  3VI 
OETABlE 

TJTF  “ENTRY  CLASS*  MAIN  SEGMENT*  (0E7) 

OESC*  START  ATTRIBUTE  CHANGES  BY  TYPE-IN 

LENGTH*  i‘i  7'  "LANGUAGE*  FTN  . . 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  JY J 
EATS 

CAN  CALL  THE  FOLLOWING* 

PUTEOT  PUTATT  PUTAT  IBEAUT  IOSNAM 


eats  entry  class*  main  segment*  <oe7> 

"OESC*  PROCESS  FIRST  TABLE  OF  CHANGE 0  ATTRIBUTES 
LFNGTH*  304  LANGUAGE*  FTN 
_  Secondary  entry  points* 
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_ _ _ _  EATCH 

'  CAN  BE  CALLEO  BY » 

_ 0ETA8LE  _  _  _ 

can  CALL  THE  FOLLOWING!  ' 

IECPNC  E  AT  F  ELNCWK  ECHKL  IENEXT 

IENIT  PUTEOT  PUTAT  ORWONE  EQUEUP 

_ IQISER  ICHKEO  CONPAC  ID8DAC  D8CHNM 

ICKACT  08CHA 

EAUP  ENTRY  CLASS!  SE” CON  ii  ARY  SE  GHENT!  <0E7> 

OESC »  A30  UP-POINTERS  FROM  A  CROSSHAIR  PICK  OF  A  OISPLAYEO  ITEM 
SECONDARY  ENTRY  POINT  FOR  i  EADOWN 
CAN  BE  CALLED  BY! 

OET ABLE  ENOOWN  " 

ECHKL  ENTRY "CLASS  !  "MAIN  SEGMENT!  "  (Ml) 

_ OESC!  CHECK  IF  LIMITS  OF  DISPLAY  ARE  MODIFIED 

LENGTH!  56  '  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

_ F I X 0 uJT_  EUPPNT  EATS _ _ _ 

CAN  CALL  THE  FOLLOWING! 

_  I03RIT  I OBARR  DBARR 

ECHNIX _ ENTRY  CLASS!  SECONDARY  SEGMENT!  (0E2) 

OESC!  ELIMINATE  THE  ACTIVE  FOR  EDITING  LIST 

_ SECONDARY  ENT  RY_»OI  NT_  FOR  !  EDINIT 

CAN  BE  CALLED  BY  I 

_ OET  ABLE  _ _ _ 

ECHONQ _ ENTRY  CLASS!  MAIN  SEGMENT!  IDES) 

.  OESC «  START  CHANGE  OOWN  POINTERS  MODE 

_ LENGTH! _ 2  7 _ LANGUAGE!  FTN  __ 

SECONDARY  ENTRY  POINTS! 

_  ECHQNU 

"CAN  BE  CALLEO  BY l 

_ _ _  OETABLE  EROOWN 

CAN  CALL  THE  FOLLOWING! 

_ IOISJER . . . .  _  ___ 

ECHONU  _  __ _ ENTRY  CLASS!  SECONDARY  SEGMENT  1  ( DE  5) 

OESC!  START  CHANGE  UP-POINTERS  MODE 

___ _ SECONDARY  ENTRY  POINT  FOR  I  ECHONO 

CAN  BE  CALLED  BY! 

_ OET_A  3L E _ EROOWN _ 

ECPROC_  _  ENTRY  CLASS!  MAIN  SEGMENT!  ( DE 5) 

OESC*  PROCFSS  NAME  TYPE-IN  TO  CREATE  A  NEW  8EAD 
LENGTH!  64  LANGUAGE!  FTN 

"HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY! 

OET A OLE' 

can  call  the  following! 

IEGPRC  OuLKUP  ACTIVA  IOSAOB  ID8ARR 

OBARR 
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ECREAN _ ENTr^c  CLASS  i  MAIN  SE  GHENT  I  (DE5> 

OtSC!  INITIATE  NAME  TYPF.-IN  FOR  CREATION 

_ LENGTH*  bu  _  LANGUAGE*  ETN _  ... 

HAS  NO  St  COM  0  ARY  ENTRY  POINTS 
CAN  BE  CALLED  BY* 

.  OETAPLE 

CAN  CALL  THE  FOLLOWING* 

PUTEJT  ILEAUT  IDuLFT  I QBNAM 

'TOINlT  EnT'RY  Cl  ass  •  MAIN  SEGMENT*  ‘  C OE  2» 

OESC  *  INITIALIZE  EDITING 

. LENGTH*  ?  0  LANGUAGE*  FTN 

SECONDARY  ENT aY  POINTS* 

"  ~ .  EC  Hr;  IT 

CAN  nE  lA.LFO  BY* 

'  EE  TABLE 

CAN  CALL  THF  following* 

~  ~~  IOHTYP 

To  ITT  r  entry  Class*  main  segment*  c  s  o » 

oesc*  initialize  feoittf  common  3lock 
LENGTH*  2?"  'language*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  dY* 

_  GLINIT  CNTCRN  GRFNIT  DEINITI 

.  THIS  PROGRAM  COES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

~e l e act  entry  cl  a ssT' second  ary  segment  *  t  mo  ) 

OcSC*  SET  ELEMENTS  AS  THE  LEVEL  TO  WORK  ON 
SECONOARV  r-|t;.Y  POINT  E OR  *  STRACT 
CAN  BE  CALLED  3V ] 

DETAdLE  PrThBLE  PRINCP  EOSTR 

’  eTnam  "e n't R “Class"!-' main  segment*  ”  (PRM1I 

OESC*  TYPE  element  names 
LENGTH!  S2  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  Of  CALLrD  dY! 

PRTAGLtl 

CTn'CALw' Th;  FOLLOWING* 

T  Y  £>  V  A  L 


ELNCHK  ENTRY  CLASS*  main  SEGMENT*  CU* 

OESC*  CHFCK  IF  NODE  IS  OUTSIDE  DISPLAY  SPACE  LIMIT 
LENGTH*  107  LANGUAGE*  FTN 

HAS  NO  SE  CON  !j  A  Ry“ EN  T  RV  POINTS 
CAN  Of  CALLED  dv  * 

EATS  F  SE:CH  ASERCH  SSAOFF 

CAN  CmLL  TdF  FOLLOWING* 

CNELM  COMPACS 

“EL  RE  PC  ENT  R  y  C  “aSC  »~  SCLONOAR'V  SEGMENT  «  (DE  2) 

OESC*  PRPCf  SS  N  (  Y  T  NODAL  REPLACEMENT 
SECONDARY  entry  POINT  FOR  *  ELREPL 

CAN  BE  CALL'D  TV  t 
—  FL RF^P 


ELREPL 


ENTRY  CLASS*  MAIN  SEGMENT*  (DE2) 

OESC*  PROCESS  TYPE-IN  FOR  NODAL  REPLACEMENT 
LENGTHt  117  LANGUAGE*  FTN 

SECONOARY  ENTRY  POINTS* 

ELREPC 

CAN  BE  CALLEO  BY* 

OET  ABLE 

CAN_CALL  THE  FOLLOWING* 

PUTEOT  IBEAUT  IOdDNN  ID30NP  ID8NAM 

EL REPP  ENTRY  CLASS  I  MAIN  _  SEGMENT*  (0E2> 

DESC*  REPLACE  NOOES  BY  TYPEC-IN  VALUES 
LENGTH*  137  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE'  CALLEO' BYT  '  . *  . . 

DETAdLE 

CAN  CALL  THE  FOLLOWING* 

ICKRNG  ELREPC  PUTEOT  ORWONE  IOISER 

IBEAUT  ICHKEO  COMPAC  DBONP  IDBONP 

_ 08UPT . . 

EMERGE  ENTRY  CLASS*  MAIN  SEGMENT*  (DEI) 

OESC*  PROCESS  DOWN-POINTERS  IN  A  MERGE 

_  LENGTH*  43  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

_ £AN_BE  .CALLED  BY* _ _ 

DETABLE  EMERG 

CAN  CALL  THE  FOLLOWING* 

I03QNN  IDBONP  MBEAD  DBUPT  DBQNT 

EMERG  ENTRY  CLASS*  MAIN  SEGMENT*  IDE1> 

_ DESC*  C.H.ECK_FO.R__M OR E_ NAMES  in  A  MERGE  BY  A  NAME  MODE 

LENGTH*  16  LANGUAGE*  FTN 

_  _  HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  BY* 

_____  OET  ABLE 

. .  CAN  CALL  THE  FOLLOWING*’ 

EMERGE  PUTNM 


EMOVEP  ENTRY  CLASS*  SECONDARY  SEGMENT*  (0E2) 

OESC I  ENTRY  TO  PROCESS  THE  MOVE  TYPE-IN 

_  SECONDARY  ENTRY  POINT  FOR  *  EMOVE 

CAN  BE  CALLED  BY* 

_ OET  ABLE _ 

EMOVE _  ENTRY  CLASS*  MAIN  SEGMENT*  (0E2> 

OESC*  PUT  UP  CENTRO  10  FOR  NODC.  ELEMENT*  OR  SUBSTRUCTURE 

_  LENGTH*  106  LANGUAGE*  FTN 

SECONDARY  ENTRY  POINTS* 

EMOVEP 

CAN  BE  "CALLEO  BY* 

_ _  OETABLE 

CAN  CALL  THE  FOLLOWING*' 

_  _  MXYTP  PUTEOT  GETCEN  IOISER  IBEAUT 

ICHKEO  COMPAC 
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ENOOWN  E  N  T Y  C.iV/jI  ►’JIN  $f  GHENT  I  (DE?I 

_ OESCt  ACC  W N  -  I  N  T£  -S  3y  NAME  _ 

LENGTH  J  -5J  LANGUAGE*  FTN 

_ SECOND  A -Y  E’iTnY  >•  )  I  N  T  G  t 

END1’ 

CAN  tt  i  „  A  L  t  f  U  if: 

DETAIL 

_ CAN  CALi.  T'j'  FOLLOWING! 

" .  ~  '  . i'AOJW-j  *  A.II-  EPUTO 


Enup  TnTky  ClASG:  :•  j.iAry  segment:  (OE7) 

_  DESCt  J  ;  -$  BY  NAME 

SECONCAr.v  .  ',  T  -  Y  p  Jl  NT  FOR  t  ENOOWN 

_ CAN  3L  ::j  1*:_ _ _ 

OFT  A..-w  ■. 


EONPO ”  '  ENTRY  CLASS:  mAlN  SEGMENT!  <DE1> 

OESCt  ACTIVATE  CROSSHAIRS  FOP  NEXT  LEVEL  DOWN  IN  DATA  BASE 
LENGTH t  1J  LANGUAGE!  FTN 

_ HAS  NO  SFCONCARY  ENTRY  POINTS 

can  je  „alico  3y :  . . ‘ 

OETAOLE 

Can  call  The  following! 

ON  PEN 


EONPEN  ENTRY  Class:  main  SEGMENT!  CDE1> 

DESS!  TURN  ON  CROSSHAIRS  IN  EDITING 
LENGTH!  11  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CABLED  3Y! 

DETA-.iLE 

CAN  CALL  Tff  FOLLOWING! 

ON  PEN 


eputdn  "  entry  Class:  main  '  segment:  (OE7) 

_ _ _  OESC:  DISPLAY  NAMES  OF  1ST  SET  OF  DOWN- POINTERS 

LENGTH!  lSfc  LANGUAGE!  FTN 
SECONDARY  ENTRY  POINTS! 

EPUTO .  EPJTUP  ~  “  . 

CAN  HE  CALLED  3Y! 

OET  A  JLE 

CAN  CALL  THF  FOLLOWING! 

TYPNAM  IUISER  IOdRIT  ID3UPN  IDBDNN 
IObUPP  ID3CNP 


EPUTO  ENTRY  CLASS:  SECONDARY  SEGMENT!  ( DE  7) 

DESC  >  DISPLAY  REST  OF  0 OWN- P 0 INTE RS 
SECONDARY  ENTRY  POINT  FOR  !  EPUTDN 
CAN  BE  CALLED  3Y I 
ENOOWN 


EPUTUP  ENTRY  CLASS:  SECONDARY  SEGMENT!  <DE7» 

OESCt  DISPLAY  NAMES  OF  UP-POINTERS 
SECONDARY  ENTRY  ptint  FOR  !  EPUTDN 
CAN  3E  CALLED  BY! 
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DETABLE 


_ENTRY_ClA33  i  MAIN  SEGMENT)  (DEI) 

□  ESC'  DELETE'BlADS  BY  NUM6E  ft 
LENGTH:  127  LANG'JAGEI  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY) 

DETA9LE 

CAN  CALL  THE  FOLLOWING) 

ICKRNG  PUTEOT  PUTLS  ~  EQUEUP  I0I3ER 

_  DELETE  _ICHKEO COMPAC  IDBRIT  C8LKUP 

DBOEL  " 

"entry  class f  secondary  segment:  (mo> 

OESC)  DELETE  ^EA03  BY  NAME 
SECONDARY  ENTRY  POINT  FOR  J  EQPEN 

CAN  BE  CALLED  3YJ _ 

DETABLE 

ENTRY  Ci-ASST  MAIN  SEGMENT)  (MO) 

OESC (  DELETE _ PICKE  0  SEA  OS 

LENGTH)  60  “*  LANGUAGE)  FTN 

SECONDARY  ENTRY  POINTS) 

EQPENN 

CAN  BE  CALLEO  BY) 

OETABLE  PRTA JLE 
CAN  CALL  THE  FOLLOWING) 

PUTNM'  'EQUEUP'  DELETE"  "'MBEAO  '  DBLKUP 
DBOEL _ _ _ 

ENTRY  CLASS)  MAIN  SEGMENT)  (PP) 

OESC)  CALCULATE  EFFECTIVE  STRESSES 
LENGTH)  151  __  LANGUAGE)  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  3Y) 

PPT  ABLE 

CAN  CALL  THE  FOLLOWING) 

ELEACT  SORT.  ISACT  DBATT  NEXTIN 
NEXT8  OBCHA 


ENTRY  CLASS)  MAIN  SEGMENT)  (M820) 

OESC)  SAVES  THE  UP-POINTERS  FOR  A  BEAD 

LENGTH)  122  LANGUAGE)  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY) _ 

" . EQNUM  MX Y P  "  EUPPNT  EATS  EQPEN 

CAN  CALL  THE  FOLLOWING) 

ORWARR  ID3UPN  I060AD  IDBUPP  ICKACT 

ENTRY  CLASS)  MAIN  SEGMENTI  (G13) 

OESC)  ERASE  AND  REORAH 

LENGTH)  l 7  LANGUAGE)  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  3YI 

MORCNT  MOZCRS  M02  PI S  HOSPLT  MOSOS 

M030TH 


CAN  CAL.  THE  MVLOWINGI 
GCORAW  G  IUFDN 

ERA  SEN  EN  T  v  ■_  A  S  ~  i  SEC  0N3  AR  Y  SEGMENT!  M3  0) 

OESCi  r-'ASc.  S'  -sC !  N  A  NO  NO  REDRAW 
SECONDARY  EnTrY  POINT  FOR  t  ERASER 

CAN  31  CALLED  jYI 

DRIVER  GLTAdLE  MORORW  PAGER  IPICK 

_ GLTOP _ 

ERASER  ENTRY  CLASS!  main  SEGMENT!  (M30> 

DESCI  ERASE  SCRt.N  AND  REDRAW  ONLY  MINIMAL  OAE  S 
LENG  h:  ICC  LANGUAGE!  FTN 

SECONDARY  ENTRY  POINTS! 

_ ERAS1.  N  _ _ _  _ 

CAN  3t  SAlLEQ’BYI 

_ STmRIM  GlTAuLE  PAGER  IPICK 

’CAN  CALL  TH*  FOLLOWING! 

TYPnAM  TYPVAL  PUTEOT  SELATT  SELATC1 

SEL  A  T 1  GERASE  GC  DRAW  GIQELT 

EROO  ENT  R~  C  LASS  rsE  CON  0  A  R~Y  SEGMENT!  <  OE  5)  ' 

DESC !  SAME  AS  t ERDO WN t  EXCEPT  REMOVE  IS  FOR  DISPLAYED  ITEM 
"SECONDARY  ENTRY  POINT  FOR  !  ERDOWD 
CAN  BE  CABLED  OYi 
OETASLE 

ERDOWD  ENTRY  ClASS  !  MAIN  SEGMENT!  (0E5)  . 

OESCi  SET  PARAMETERS  FOR  REMOVAL  OF  DOWN-POINTERS 
’"’LENGTH!  32  LANGUAGE!  FTN 

SECONDARY  ENTRY  POINTS! 

EROOWU  EFOD  EROU 

CAN  RE  CALLED  BY! 

detamle  ’  . .  - . ~  ~ . . . . 

CAN  CAlL  THL  FOLLOWING! 

ERO  EKOOWN 

EROOWN  ENTRY  ClASS  i  main  SEGMENT!  C0E5) 

_ OESCI  °UT  UP  FIRST  GROUP  OF  DOWN-POINTERS  NAMES 

LENGTH!  12  A  .  LAN  SURGE  1  FTN 

SECONDARY  ENTkY  POINTS! 

ERDOW 

CAN  RE  CAILFO  3YJ 

.  ERDOWD 

CAN  CALL  THE  FOLLOWING! 

ECHOND  ’’ECHOnU TYPNAM  "'I03UPN  ’  IOBONN . 

_ IOE’JPP  IOMDNP 

EROOWU  E  N  T p Y  CLASS!  SECONDARY  SEGMENT!  (DE5> 

OESCI  SAME  AS  'EROOWN*  EXCEPT  REMOVE  IS  FOR  UP-POINTERS 

_ SECON3WY  entry  POINT  FOR  l  ERDOWD _ 

CAN  BE  CALL  Ei>  -JYj  . "  '  *'  ~ . 

DE TABLE 


EROOW  ENTRY  CLASS!  SECONDARY  SEGMENT!  (0E5) 

OESCi  PUT  UP  REST  OF  00 WN-PO INTERS  NAMES 


ERDU 


SfcCONCARy  ENTRY  POINT  FOR  t  E  RD  OWN 
CAN  BE  CALLEO  BY* 

_ ERG _ _ _ 

ENTRY  CLASS*  SECONDARY  SEGMENT*  (OE5) 

OESC*  same  AS  /EkDOWNA  EXCEPT  REMOVE  IS  FOR  DISPLAYED  ITEMS 
SECONDARY  ENTRY  POINT  FOR  *  ERDOWO 
CAN  BE  CALLEO  JYS 

_ OE  TABLE _ _ _ 

ERO  _  ENTRY  CLASS*  MAIN  SEGMENT*  (0E5) 

OESC*  ACTUALLY  REMOVE  UP-  AND  DOWN-POINTER 
LENGTH*  113  LANGUAGE*  FTN 
HAS  NO  SECONCARY  ENTRY  POINTS 
CAN  BE  CALLEO  JYS 

ERDOWO .  ~  ""  . 

CAN  CALL  THE  FOLLOWING* 

EROOW  DKWONE  IOBDAD  M8EA0  ICKACT 

08UPT  OBONT 

_ERNAD0 _ ENTRY  CLASS*  SECONDARY  SEGMENT*  (OES) 

OESC*  ADO  DOWN  POINTERS  BY  NUMBER 
SECONOAKY  ENTRY  POINT  FOR  t  ERNDLD 
CAN  BE  CACLEO  BY* 

_  GET  ABLE  _ 

E.RNA0U _ £NT  RY__C.CAS_S  I _ SECONDARY  ..SEGMENT*.  (QE5) 

OESC*  ADO  UP-POINTERS  BY  NUMBER 
SECONDARY  ENTRY  POINT  FOR  I  ERN  OLD 
CAN  BE  CALLEO  3YI 

_  OE TABLE  _ 

_ERMQU2 _ ENTRY  CLASS  *_MAIN  ..  SEGMENT*  (0E5) 

OESC*  DELETE  OOwN-POI NTERS  BY  NUMBER 

_  LENGTH*  20  7  LANGUAGE*  FTN 

secondary  entry  points* 

_  ERNAJD  ERNADU 

CAN  BE  CALLEO  BY* 

DET A3LE 

CAN  CALL  THE  FOLLOW ING I 

ICKRNG  PUTEOT  PUTLS  DRWONE  IOISER 

ICHKEO  COMPAC  “  IDeRIT  I030A0  ICKACT 

OBUPT  OBONT _ 

ERR.RM _ ENTRY__C'.ASS_:  MAIN _ SEGMENT*  (SO) 

OESC*  (NOT'  AVAILABLE) 

_  LENGTH*  A0<4  LANGUAGE*  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 
_ _ CAN  BE  CALLED  BY* 

CLSE. EO  CLSV.EO  GET.EO  JMPS.RM  PUT.FO 

_ RE  W  .  F  0 _ SKFl.EO _ MEMC.RM  OPEN.EO  OPES.FO 

C'lSE.'RM  OPEN.  5Q  OPEN.  R  M  OSUB.RM  OPEX.SQ 

_ _ _  GET. SO  PUT. SO  REW.SQ  WEOX.SQ  CLSF.SQ 

CLSF. RM  SKFL.SQ  RLEQ.RM 

CAN  CALL  THE  FOLLOWING* 

RM.CIO  RM.RLLA  SYS= 


MSG= 


ESERCH  Entry  St  OMEN  T  i  (DE7) 

_ (if  s  :  s.  ,-a  t^f'JTs  bv  attriuute  range 

LIN,I»I  :  1  lANijUAGEI  FTN 

HAS  j  S:'  :  r.t'.AR.'  AN  TRY  POINTS 

" . CAN  Hr  CAL,.  til  H  ■  t 

'  T  A  t  L  r 

CAN  :  Al.  1.  T-1'  I  S.OulNGI 

U-.;  h  P!  T'  jT  PtjTAT  IDISER  ICHKED 

c.-hpac"  r  """ooupt  dbdnt  ickatt 

E  SLOT  ENTS'-'  ::  :•  !  •'A  1*4  SEGMENT!  <G12> 

Of  iZ  i  '  :  •  v  ••  i  :  >-  A  -:T  CE  LEVEL  FOR  EDITING 

LtNGT>!  4  LANGUAGES  FTN 

_ HAS  m>  u-.  Gv-.I.  A-;v  ENTRY  POINTS 

CAN  Hf  L  L  l"  Vi  .i  Y  • 

t  Til1;  V  f  AC'PN  FALLS 
"CAN  CALL  THE  rOLLOWINGI 
_  _____  101  SrR 

ETYPSV  ENTRY  CLASS!  MAIN  SEGMENT!  (DEI! 

0ESCI  ACTIVATt  ALL  NO  OE  OR  ELEMENT  NUMBERS  TYPE  D-IN 
LENGTH!  G  h  LANGUAGE!  FTN 

_  Hfcs  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  BY! 

OETAuLt 

CAN  call  THE  FOLLOWING! 

ISr  i-lG  PUTc  OT  PUTLS  ""  IDISER  ESLOT 

IChtftfO  OOMPAC 

EUFPNT  ENTRY  CLASS!  main  SEGMENT  I  (DE2) 

OE  SC  :  SO  GAIA  U-5E  ULOATf  FOR  MOVED  POINT 
LENGTH-.  LOG  LANGUAGE!  FTN 

H  A  J  H~  )  N  0  A  R  v  ENTRY  POINTS 

CAN  •  '  .  .  :  ,L  iV ; 

M  1.  Y  ' ' 

_ CAN  call  TH'  F-.U.L  OWING  I 

ECHKL  DRW >NF  FQUEuP  DBATT  DBCHA 

EXECC  ENT  '-.V '"Sl’ASS  V"hAIN  SEGMENT!  (EX) 

DESC*.  call  a  PROCEDURE  in  file  PROAIDS 
'  “  LENGTH!  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  HE  CALLED  BY j 
F  y  EC 

Can  ca i_i  Tup  t'oll oh in’Gi 

s  YD  TAR  FYITOP  UNPACK  IYIELD1  IYIELDE 

I  YIELDS 


EXEC  “  ENTRY  CLASS!  MAIN  SEGMENT!  (EX) 

DF  SC t  CONSTRUCT  A  CALL  TO  A  PROCEDURE 
LENGTH!  LANGUAGE!  FTN 

HAS  NO  SECONDARY  entry  POINTS 
CAN  Ht  C  A  L  L  t D  JY! 

F*T  A  RLE 
Can  call  T  h : 


r  '-LOWING! 


EXECC 


1GDFV 


EXlNIT _ ENTRY_CLA3S1  MAIN  SEGMENT!  (M32) 

OESCI  START  E XECUTIVE*  MENUS  ONLY 
LENGTH!  17  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  9E  CALLED  BY! 

OET  ABLE  PF.TAdLE  PPTABLE 

_ CAN_CALL_THE  FOLLOWING! _ _ 

STARTM  gioelt 

EX  ITT  ENTRY  CLASS!  SECONOARY  SEGMENT!  (DRIVE! 

_ _ OE  SC  t  (NOT  AVAILABLE) 

‘SECONDARY  ENTRY  POINT  FOR  I  RCOVER 

_ CAN  BE  CALLED  3YJ _ _ 

DRIVER 


EXIT  ENTRY  CLASS!  SECONDARY  SEGMENT!  (SO) 

_  DESC!  (NOT  AVAILABLE) 

SECONOARY  ENTkY  POINT  FOR  t  FORSYS= 

_ CAN  BE  CALL EO _ 3Y_l _ 

RCOVER 

"‘EXP  ~  ENTRY  CLASS!  MAIN'  SEGMENT!  (SI) 

_ _ _ OESCI  EXPONENTIAL  FUNCTION.  E  TO  POWER  X.  OPT  =ALL. 

LENGTH!  75  LANGUAGE!  COMPASS 

_ SECONDARY  ENTRY  POINTS! _____ 

EXP. 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
CAN  CALL  THE  FOLLOWING! 

_ SYS  1ST. _ 

EXP. _ ENTRY  CLASS!  SECONDARY^ _ SEGMENT!  (Sl> 

OESC I  (NOT  'AVAILABLE) 

_  _  SECONOARY  ENTRY  POINT  FOR  I  EXP 

CAN  BE  CALLEO  BY! 

XTOY  = 


EXSTAR  ENTRY  CLASS  I  MAIN  SEGMENT!  (MEN1) 

DESC!' SAVE  AND  RESTORE  APPROPRIATE  STAGING  FILES 

_ LENGTH!  234  LANGUAGE!  FTN 

SECONOARY  ENTRY  POINTS! 

EXSTOP 

CAN  BE  CALLEO  BY! 

_  __  EXECC  GLCLOK 

'CAN  "CALL  THE"  FOLLOWING!'  . .  . . 

STARTA  REACT  RESTART  GITEM  GIOELT 

GUTEXT  GUSETP  STOP.  IPFUT  PERMFIL 

TIME  RETURN 

exstop  entry  classi  secondary  segment!  (mend 

OESCi  (NOT  AVAILABLE)' 

SECONOARY  ENTKY  POINT  FOR  I  EXSTAR 
CAN  OE  CALLEO  3y ! 

EXECC  GLCLOK 
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E  X  TA8L £ 


SEGMENT*  (DRIVE) 


T 


ENT^v  mA  In 

OESC*  (  "  J  T  ••  V  A  IL  AiiLL') 

UN'.TH!  ?7  LANGUAGE*  COMPASS 

HAS  S'  ;•!,!_  IV  ENTRY  POINTS 
CAN  -it  v,  ALL:  JYS 

ST  A  v  :  «  '.>  l I N 1 7 

CAN  CAL..  THE  f  )Ll  OWING* 

S  w  1 T  w  m  i  If  YCi  C  EXEC  filatt  deinit 

pa  I  nit  PPINII 


FCHPRAM  E  N  T 7 ¥  C  _ A  I S  :  “AIN  SEGMENT*  (OBO) 

01  SI  *  T  A  V  A  I ..  A  ML  E  I 
LENOT-!  :  LANGUAGE*  COMPASS 

HAS  N  ,  On;  *.»*  ENTRY  POINTS 
_ C  A  N  A  S  -  :  L  i  T  *  __  _ 

I'M  jT  .  ' '  0“<l  f0‘  "3MELSH  dminit 

_ This  PROGRAM  riD1  s  NOT  INVOKE  ANY  OTHER  PROGRAMS 

FECMSK  =  ENTRY  CLASS  s  MAIN  SEGMENT*  (SO) 

oe sc  *  in  i  r  i  ;-l  ;  constants. 

_ LENGTH*  a  I  LANGUAGE*  COMPASS 

has  no  c f  c j n c a .< v  entry  points 

THIS  ENTRY  ; g  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 

this  program  jors  not  invoke  any  other  programs 

FCTSTA  T  ENTRY  CLASS  *  “AIN  SEGMENT*  (OBO) 

_ OESC*  (Nil  AVAILABLE) 

LENGTH*  If  LANGUAGE*  FTN 

HAS  NC  SECONDARY  ENTRY  POINTS 
'CAN  In  .ALL.'  I>  >'  * 

DMRf'D  Omw-.ite  DMFLSH  OMINIT 

This  PR  j.WAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

Ti'LATT  EnTrT  CLA  ll;1  'main  SEGMENT*  (EX) 

Ot.SC*  AjTACM  T  ■*;■  DATA  BASE  FILE  AND  INITIALIZE  IT  FOR 

L  E  N  "  T  M  t  1  ■':>  0  LANGUAGE*  FTN 

_ HAS  NO  C  E Du  N D  ARy  ENTRY  POINTS 

CAN  BE  CAlLED  RTS 
F  X  7  A  Jl  \ 

c an" call  t -<r“F>c Lowing* 

F I L  N  A  ”  G  ‘.UNIT  PAGER  IDISER  ICCHR 

COPYfL  If-AUT  REOUEST  DBINIT  RETURN 

FILNAM  ENTRY  CLASS*  MAIN  SEGMENT*  (MEND 

_ OESC*_SrT_UP  file  nae  for  oata  base  file 

LENGTH*  '  "Vl  “  "LANGUAGE  *  FTN 

_ _  SECONDARY  fnt-y  POINT'S* 

glfiln 

CAN  OE  CALLED  :3 v  * 

filatt 

can  call  thf  following* 

~  "PUT c  IT  -  .  '  . 

FIxDAT  EnTpy  class*  main  SEGMENT*  (PR2) 

oesc *  fix  drafting  endpoint 
LENGTH*  ton  language*  FTN 


-AN0-E 


HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  3E  CALLEO  dY» 

_PRTA3Lf 

CAN  CALL  THE  FOLLOWING «'" 

SETLN  SFTNO  ICRNXT  CORSHF  RASTOU 

GIEETS  CNELM  EC  HKL  IDRWAT  IDRW 

GITRAK  ACTIVA  08CHA  DBUPT  D80NT 

ENTRY  CLASS  S  MAIN  SEGMENT*  (SO) 

OESC*  FORTRAN  OBJECT  LIBRARY  UTILITIES. 

LENGTHS  HQ?  LANGUAGE!  COMPASS 

SECONDARY  ENTRY  POINTS! 

EXIT  STOP.  A8N0RM.  AB1.  SYSEND. 

SYSET.  SYSERR. 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
CAN'  CALL  THE  FOLLOWING* 

CLSE.RM  OPEN. SO  OPtN.RM  CoO.  BFN . 

GET . 1  PUT .SQ  SKFL.SQ  SYS=  MSG= 

ENTRY  CLASS*  MAIN .  SEGMENT*  (SO) 

OESC*„FGL  MISC._UTILITIES. 

LENGTH*  16  'LANGUAGE*  COMPASS 

SECONDARY  ENTRY  POINTS* 

CBD.  B^N.'" 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
THIS  PROGRAM  OOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

ENTRY  cTassT'maTn  SEGMENT*  "  ( GL 3) 

OESC*  MOO  PICTURE  -  SET  X-Y  PLANE 

LENGTH*  13  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  3E  CALLED  dY* 

_ GLTAOLE _  _ _ 

CAN  CALL  THE  FOLLOWING* 

_ MORORW  SET  VU 

ENTRY  CLASS*  MAIN  SEGMENT*  (SO) 

OESC*  (NOT  AVAILABLE) 

LENGTH*  _  10  6  LANGUAGE*  COMPASS 

SECONDARY  ENTRY”POINTS* 

RMUQ.SO  R  MU? . SQ 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
CAN  CALL  THE  FOLLOWING* 

GXIT.SQ  GRTJ.SQ  AM  AC. S  Q  MOVE. FM 

TNfRY~CrAl'sT~MAlN  SEGMENT*  (GO) 

OESC*  INTERTEK  -  CHECK  PICKED  POINT  WITHIN  AREA 
LENGTH*  71  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY* 

GCORIT 

CAN  CALL  THE  FOLLOWING'*' 

_ GCGMM  GCGONE GCGLID 

ENTRY  CLASS*  MAIN  SEGMENT*  (GO) 

OESC*  INTERTEK  -  DETERMINE  LINE  VISIBILITY 


GCOLIM 


GCORAW 


LFNC.T- 
HAS 
C  A  f.  >• 


I  ANGUAGE*  ETN 
E'Tky  points 


GCORIT 


THIS  i  DJ'S  NOT  INVOKE  ANY  OTHER  PROGRAMS 

ENT-.V  A  SSI  -  A ;  n  SEGMENT*  (GO) 

OESs  :  IN  i:  R  T  t  •  -  RETRIEVE  SCALE,  WINDOW,  AND  CLIP  LIMITS 
_LFN'-THS  _  m  LANGUAGE*  FTN 

SfCON  JhRY  r.  NT  AY  POINTS* 

•‘.CSTl  p 

CAN  I.  ‘  : 

Gif  'IS  AW  GITRAK 

CAN  Call  Thl  FOLLOWING* 

_ COM Pin _ GO  > mm _ GCGTUB _ GCGET 

ENTRY  CLASS*  MAIN  SEGMENT*  (GOI 

Oc SC  *  INTEkTEK  -  CONTROL  DISPLAY  FILE  OR  ITEM  INTERPRETATION 
LENGTH*  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
can  be  CALLED  by; 

DRIVER  M  0  £  _  RS  lid I  NS  MXYI  PAGER 

ERASER  GITFM  IOISER  GI9UTN  GISHOW 

G 1 0  JP  GL3FON  ERASEM  GIXTND 

CAN  CALL  THE  FOLLOWING* 

COMPIO  GCGTYP  GCGSF  GCDSF  GCUNPK 

GCORIT  GCWORK  GCC.LIM  GCSTUB 


ENTRY  CLASS!  MAIN  SEGMENT*  * 

OESCI  INTER  T  F  '<  -  INTERPRET  ITEM 
LENGTH*  OR  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  OY  i _ 

’"GCORAw  gcosf 
CAN  CALL  T  H r  FOLLOWING* 

GCRCAT  GLUCAT  GCCHMM  GCFILL 


GCWORK 


GCOSF  ENTRY  Cc A 33  t  MAIN  SEGMENT*  (GO* 

_ 0 E S C  *  IN  TER TG  K  - _ IN TE  RP RE T  SUBFILE 

length:  ■  "  *>  7  ~  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY* 

GCORAW 

CAN  CALL  THF  FOLLOWING* 

GCGRIT  GCRCAT  GCUNPC  GCORIT 


GCFILL _  ENTRY  CLASS*  MAIN  SEGMENT*  (GO) 

DESC  *  InTERTEK  -  RETRIEVE  DISPLAY  INSTRUCTIONS  FROM  ITEM 

_ _ _ _ _  LENGTHI  LOG  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

_ CAN  BE  CALLED  JYJ 

GCuKIT  '  G 10  UP 

_  CAN  CALL  THE  FOLLOWING* 

gcgarr  ggglen  gcgone  GCGLID 


gCgarr 


entry  CLASS*  main 


SEGMENT* 


OESC  *  INTERTEK  -  RETRIEVE  AN  ARRAY  FROM  A  BEAD 
LENGTH!  46  LANGUAGE!  FTN 

_ SEC ON  DA  {  Y  £  NT RY  POI NTS  « _ 

GC  5  A  KR 

CAN  BE  CALLEO  BY! 

gcgmm  gcfill  gibutn  gisngl  gidup 

can  CALL  THE  FOLLOWING! 

OMSET  OMGET 

GCGETW  ENTRY  “class”! SECONDARY  SEGMENT!  “  (SO  ) 

OE  SC !  INTERTEK  -  RETRIEVE  A  BIT  STRING  FROM  A  WORD  IN  t I9UF  t 
SECONDARY  ENTRY  POINT  FOR  I  GCGET 

_ CAN  BE  CALLEO  BY! 

GC  UP  X  Y  GULIN  GUTEXT 

'GCGET  ENTRY“cITs”s  •  MAIN  SEGMENT!-  (SO) 

_ __OESCi  INTERTEK  -  RETRIEVE  A  3IT  STRING  FROM  A  WORD 

LENGTH!  16  LANGUAGE!  COMPASS 

_ _  __  SECONDARY  ENTRY  POINTS! 

GCGETW 

_ £AN_BE  CALLEO  BY! _ 

GCGMM  GCSSF-  GCUCAT  GCUNPK  GCWORK 

GCOLIM  GCUNPK  GIBUTN 

THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

GCGLEN  ENTRY  CLASS!  SECONOARY  SEGMENT!  (GO) 

_ OESC I  INTERTEK  -  GET  0EAO  LENGTH 

SECONOARY  ENTRY  POINT  FOR-  I  GCSSF 
CAN  BE  CALLED 

GCFILL  GISNGL  GIDUP 

GCGIFT  ENTRY  CeASS  I  SECONOARY  SEGMENT!  (GO) 

_ OF.SC!  INTERTEK  GET  A  LEFT  POINTER 

SECONOARY  ENTRY  POINT  FOR  !  GCSSF 

_ CAN  BE  CALLEO  -3Y! 

GITEM  GIOELT  GIDUP 

GCGLID  ENTRY  CLASS!  SECONOARY  SEGMENT!  (GO) 

_ OESC«  INTERTEK  -  GET  LENGTH  OF  ID  FROM  ITEM 

SECONDARY  ENTRY  POINT  FOR  I  GCSSF 
CAN  BE  CALLEO  BY i 

GCCHMM  GCFILL  GIOUP 

GCGMM  ENTRY  CLASS!  MAIN  -  SECMENT!  (GO) 

_ OESC !  INTERTEK  -  RETRIEVE  ITEM  AREA 

LENGTH!  -  121"  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  OE  CALLEO  BY! 

GIZOOM  GCCHMM  GCOLIM 

CAN  CALL  THE  FOLLOWING! 

_ GCG  AkFR_ GCGTYP_  GCGET 

GCGONE  ENTRY  CLASS!  SECONOARY  SEGMENT!  (GO) 

OESC«  INTERTEK  -  GET  A  FULL  WORD  FROM  ITEM 
SECONOARY  ENTRY  POINT  FOR  I  GCSSF 
CuN  aE  CALLEO  3Y 1 
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GCUCAT  GCC'MM  GCFILL  gibutn  gisngl 

GICLRO  GIOUP  GIXTND 

'GCGRff  entry'  class  I  ~r.CCONOARV~  SEGMENT*  (GO) 

DECT!  I'jTtPTF'  -  GET  A  RIGHT  POINTER 
~  SECOND*  V  ENTRY  point  FOR  »  GgSSF 

CAN  -if  called  m 

GCCSF  GI^M  gioelt  gioup 

"GCGSF  fNTRY  "cl  A  SST"I  E  ;  ON  D  ARV  SEGMENT*  (GO) 

OE  SC  i  (NOT  AVAILABLE) 

_  SEC  ONE  A  ■?  y  .  N  T  r  v  'HINT  FOR  *  GCSSF 

CAN  of  t  ALICE)  )'* 

G CO RAN  GITFM  GIOUP  GIXTND 

-GCiffUB  ENTRY"CL,SS*'  SECONDARY  SEGMENT*  (GO) 

OESC  *  (NOT  AVAILABLE) 

"SECONDARY  entry  POINT  FOR  *  GCGTYP 
CAN  BE  CALLED  9  v  ! 

GCDLIM 

GCGTYP  rNlW~CTA“JsT_MAili  SEGMENT*"  ""  (GO)  " 

OESC*  INY-STEK  -  RETURN  ENTITY  TYPE 
LENGTH!  IS  LANGUAGE*  FTN 

SECONDARY  ENTRY  POINTS* 

GCGTJU 

_ CA_N  DE  CALLED  BY* 

GIZOOM  GLGMM  GCSSF  GCDRAW  GITEM 

GIDELT  G  IT  -  AK  GIOAE  GISHOW  GIDUP 

GIXTND 

THIS  PROGRAM  DOf G  NOT  INVOKE  ANY  OTHER  PROGRAMS 


GCHIGH  ENTRY  CLASS*  MAIN  SEGMENT*  (GO) 

OESC  !  ”  I N T  1  < T t:.  K  -  RETURN'  CHARACTER  HEIGHT 
LENGTH!  -  :  ?  LANGUAGE*  ETN 
SECONDARY  FnTkY  POINTS* 

GCWIOF.  ip.  <  MIN  GCYMIN  GCYMAX 

CAN  RE  SAlLlO  ?y i 

DRIVER  PuTt  Of  GL TOP  MfNNIT 

THIS"  PRO  iRA"*'  "  D  )L  3  NOT  invoke  any  OTHER  PROGRAMS 

GCINPC  ENTRY  CLASS!  main  SEGMENT*  (Gil) 

OESC!  (NO T  AVAILA3LE) 

.  LENGTH!  fb  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  UE  CALLED  )Y* 

GIBUTN  GITRAK 
CAN  CALL  T H p  FOLLOWING* 

_ _____ _ COM”  10 

GCMAT  ENTRY  CLASS!  MAIN  SEGMENT*  (G13) 

"  OF.  3C  l  (NOT  AVAILABLE')'" . 

LENGTH!  G 7  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  Dt  OALLFO  BY! 

S ROT FT  A  kROW 
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this  program  does  not  invoke  any  other  programs 
entpy  class  i  main  segmenti  c g q  » 

OESCI  INTERTEK  -  PUT  A  NEW  SU3FILE  OR  DAE  INTO  ENTITY 
LENGTH!  30  LANGUAGE!  P  TN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY ! 

GIOELT  G IS HOW 
C.A_N_CALL  THE_FOLLOWING«_ 

"  GCoET  I 

ENTRY  CLASS!  MAIN  SEGMENT!  (GO) 

OESCI  INTERTEK  -  RETRIEVE  CATEGORY  INTE  PPRET  ATICN 
LENGTH!  22  LANGUAGE!  r TN 

HA S _ N 0_ SECONOARY  entry_points 

CAN  BE  CALLEO  BY !  . . 

GCOSF  GCOrIT  GIbUTN 

THIS  PROGRAM  OOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

ENTRY  CLASS!  MAIN  SEGMENT!  (GO) 

OESC  •  INTERTEK  -  RESERVE  SPACE  FOR  AN  ENTITY 
LENGTH!  65  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  OE  CALLEO  BY  I 

GISU3F  GITEM  _  GIBUTN  GIDAE  GIOUP 

GIXTNO 

QAN_CALL.THE_FOLLOWINGI _ _ 

GIERR  OMGTOO 

ENTRY  CLASS!  SECONOARY  SEGMENTI  (GO) 

OESC!  INTERTEK  -  SET  AN  ARRAY  INTO  A  L3E  AO 
SECONOARY  ENTRY  POINT  FOR  I  GCGARR 
CAN_  0E  CALLEO  BY  I  _____ 

GITEM  GIBUTN  GIOUP  GIXTND 

ENTRY'  CLASS ! “SECONDARY  SEGMENTI  (SO) 

OESCI  INTERTEK  -  SET  A  BIT  STRING  INTO  A  WORD 

SECONDARY  ENTRY  POINT  FOR  I  GCSET 
CAN  BE  CALLEO  3Y! 

GIASIO  GC3SF  GITEM'”'  GCUPSF  ““  GCPKOS 

_ GICAT _ 

ENTRY  CLASS!  SECONOARY  SEGMENT!  (SO) 

OESCI  INTERTEK  -  SET  AN  ENTIRE  WORD  INTO  XIBUFX 
SECONOARY  ENTRY  POINT  FOR  J_GCSET 

CAN  'BE  CALLED  BY «”  . . 

GCUPXY  GUSETP 

ENTRY  CLASS!  MAIN  SEGMENT!  (SO) 

OESCI  INTERTEK  -  SET  A  BIT  STRING  INTO  A  WORD  IN  1 1 BUF t 

LENGTH!  _  37  _  LANGUAGE!  COMPASS 

'SECONDARY  ENTRY  POINTS! 

GC  SET  W  GCSETI 

CAN  BE  CALLEO  BY! 

GULIN  GUTEXT  GUSETP 

THIS  PROGRAM  OOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 


GCSLFT  EMrt  •.  «  >  •  :T  jnBARY  SEGMENT*  (GO) 

•JtSCt  I'.'Tt  RT(  K  -  GET  LEFT  POINTER 
secon-a-.y  :  •  j t > . r  ►< .tint  for  i  gcSSF' 

CAN  -f  CAll-G  :’Y  : 

oi' <  -  ;  .;v  ur  oil-up 

GCSONE  entry  GlAGS  *  .UN  GARY  SEGMENT:  *001 

_ __0  f  S  L !  • '  T  •  •  -I  K  -  SET  A  FULL  WORO  FROM  ITEM 

St  GOV.' A  •  v  :’.T~-  >.  NT  FOR  I  GCSSF 

CAN  N:  .  A  t.  L  •  0  -v» 

bit  J  I  N  b  I  X  !  N  0 

"GCSRIT  ENTF  V  SEL'J  lOARY  SEGMENT:  (GO) 

0F3C :  INTV-Tf  <  -  SET  A  RIGHT  POINTER 
SEC  ON;.  £  -  r  lnT-y  p  .U  NT  FOR  »  GCSSF 
CAN  Si  CALL!  0  :)Y: 

GIT  CM  G  I  3 1 L  T  GICUP 

GCSSF  ~  ENTRY  CLASS:'  MAIN  SEGMENT:  (GO) 

OFSC:  INTERTEK  -  SET  jUQFILE  TO  WHICH  ITEM  BELONGS 

LENGTH)  ?Bfe .  language:  FTN 

SECONDARY  EnThY  POINTS: 

GCGSf  GlGLEN  GCSLFT  GCGLFT  GCSRIT 

GCGRIT  GtSONF  GC  GONE  GCGLIO 

CAN  BE  j  ALL  EO  .)>  t 

_ G  I  f  E  M  .  G  1 3  UP 

CAN  CALL  THr  ?  ILlOWING: 

GC^r.-P  .L  •  ;  GC  SET  I  DMSET  DMGET 


GCSTUB _  ENTRY  ClASS!  1 E C TNO ARY  SEGMENT:  (GO) 

. .  0  C  :  (NOT  „VA  I  L  ABLE) 

_ SECONDARY  ENTRY  ,j  o  I  n  T_  F  0  R  _l  GCDLIM  _ 

CAN  ci-  i. ALL  EC  J V  s 
b  •’  *  R  ''IT1  ■  C 


GCUCAT  ENTRY  CLASS t  main  SFGMENT)  (GO) 

OESCf  INTERTEK  -  UNPACK  CATEGORIES  IN  ITEM 
LFN'THi  Sr,  LANGUAGE:  FTN 

HAS  N  G  ..rt  3  N  H  A  RY  ENTRY  POINTS  . . 

CAN  BE  CAlLCU  NYI 

GCORIT  GIBUTN  GIOUP 
CAN  CALL  THF  pOlLOWING: 

GCGONF  GCGfT 

GCUNPC  ENT  H  V  "  0  LAS  S  fSC  LON  D  A  R  Y  SEGMENT:  (GO) 

OESC :  INTERTEK  -  UNPACK  SUBFILE  CATEGORY  LIST 
SECONDARY  ENTRY  POINT  FOR  :  GCUNPK 
CAN  BE  GALlEO  By; 

GCOSF  GGUP3F 

GCUNPK  ENTRY  ClASS'~m4:n  SEGMENT:  (GO  ) 

OESC:  INTERTEK  -  UNPACK  SUBFILE  OR  OAE  LIST 
LENGTH!  r-i  LANGUAGE:  FTN 

SECONDARY  ENTRY  POINTS: 

GCUNPC 


can  sc  called  art 

GCQRAW  GIOELT  GISHOW 

_ CAN  CALL_THE__F0LL0WINGI 

"  GCGET 

GCUNPK  ENTRY  CLASS!  MAIN  SEGMENT!  (GO) 

OESC«  INTERTEK  -  UNPACK  SUBFILF  OR  DAE  LIST 
LENGTH!  75  LANGUAGE!  ETN 

_ HAS  NO  SECONDARY  ENTRY  POINTS 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHED  FROGRAMS 
_ THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

GCUPSE  ENTRY  CLASS!  MAIN  SEGMENT!  (GO) 

QE  SC !  INTERTEK  -  UPDATE  SUBFILE  CATEGORY  LIST 

_ LEN_GTH!_ _ 117 _ LANGUAGE!  FTN 

HAS  NO 'SECONDARY  ENTRY  POINTS 

_ _ CAN  BE  CALLED  BY  I 

GITEM  GIOUP 

_ _ _ CAN  CALL  THE  FOLLOWING! 

gcunpc  &cseri 

GcUpXY  ENTRY  CLASS_!~MATn  SE  G  MEN  T !  (GO) 

OESCI  INTERTEK  -  UPDATE  X,Y  AND  AREA  FOR  ITEM  IN  *I9UF* 
"LENGTH!  102  LANGUAGE!  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  9Yi 

_ gulin  Gurexr  gusetp 

CAN  CALL  THE  FOLLOWING! 

GCGETW  GCSFTW 


GC WIDE  ENTRY  CLASS!  SECONDARY  SEGMENT!  1G0) 

OESCI  INTERTEK  -  RETURN  CHARACTER  WIDTH 

_ SECONDARY  ENTRY  POINT_FOR  I  GCHIGH 

CAN  BE  CALLEO  By'i 

_  _  OR1VER  L I  BIN  S  PUTEDT  MENNIT  IDISER 

GCWORK  Entry  CLASS!  main  SEGMENT!  (GO) 

DESC!  INTERTEK  -  INTERPRET  DISPLAY  INSTRUCTIONS 

_ LENGTH! _ 752  _  LANGUAGE!  FTN 

HAS  NO'SFCONOARY  ENTRY  POINTS 

_ _ _ _ _ CAN  BE  CALLED  3Y!  __ 

GCORAW  GCDRIT 

_  _____  CAN  CALL  THE  FOLLOWING! 

COMPIO  GCC  SORT.  GCGET  GOTOER. 

"GCXMIN  E  NT  RY~C  L  ASST  S  ECO  N  0  A  rT  SEGMENT!  (GO) 

_____  __  OESCI  INTERTEK  -  RETURN  SCREEN  X  MIN 

SECONDARY  ENTRY  POINT  FOR  I  GCHIGH 

_ CAN  9E  CALLEO  9Y! 

CNTINT  INITXY  INIT2D  GLTOP 

"GCTmAX  E~nT  Ry"~C  LASS~!  SECOND  ARY  SEGMENT!  (GO) 

OESCI  INTERTEK  -  RETURN  SCREEN  Y  MAX 
‘SECONDARY  ENTRY  POINT  FOR  I  GCHIGH 
CAN  BE  CALLEO  3Y1 

CNTINT  INITXY  1NIT20  GLTOP 


GC YMIN 


^nTry  mass:  segment*  (GO) 

[I'sc:  :Mi  V>  v  -  r.i.  TUKN  SCREEN  Y  Ml  N 
VIC  UN  A  •••<’  ».  ■; T  -  y  >'j:  u  FOR  :  GCHIGH 
Can  ■».-  call'd  iv: 

C'-r;  a  r.IT  <Y  INIT2D 

GC30A  E  NT  ~.Y  C.AGS  :  “A  IN  SEGMENT! 

_OESr.i  t  N  T  A  Villa  OLE) 

Li  NOTH  I  »A7  LANGUAGE!  FTN 

HAS  NO  E‘  Z  U  N  -j  A  R  *  ENTRY  POINTS 
CAN  l  L  r  j  w» 

St  VU 

CAN  C«M  THf  POLE  OWING! 

_ ±Cy-.r  . .  A  1  A n •’ . _ _$ORT.  _  _  _  cos. 

ENTRY  CLASS:  "AM  SEGMENT! 

0  £  S  0  t  ci  c\  A  L  “  S'  S  '<  ’  r.  N 

LENGTht  1J  LANGUAGE!  FTN 

HAS  NO  SECONDARY  In  TRY  POINTS 
CAN  AE  C  A  L  L  r  0  JY: 

’ERASER  H  0  L  j  ~  “ 

CAN  CALL  THE  FOLLOWING! 

CO  mo  I  0 

GETCEN  ENTRY  CLASS!  MAIN  SEGMENT!  <MB20» 

- CUSS:  )t:  T .  R  "  I  CENTER  of  an  element 

LENGTH!  2  3  F  LANGUAGE!  FTN 
has  n?  secondary  ENTRY  POINTS 
CAN  CAuLt  D  SYJ 

V . . ..  C'TELN  T  MOVE  MX  Y I  GETCNT  IDRWEL 

IO-.WA' 

_ CAN  CAl;.  fh~  FOLLOWING! 

"CNVTOC  GOfOER.  I GUONN  I DBT  Y  P  I08DNP 

DBA  TT 

GETCES  ENTRY  CLASS!  "UN  SEGMENT!  (DB3) 

OF  SC  I  DETERMINE  CENTER  OF  STRUCTURE 

_ LFnGTh;  ?F  LANGUAGE!  FTN 

HAo  ,i  C  0  * D  A  R  y  ENTRY  POINTS 

_  _  CAN  \)r  L  ALL  C  0  HVS 

I  OR WAT 

_  can  CALL  The  FOLLOWING! 

getlim 

GETCNT  ENT-y  CLASS:  main  SEGMENT!  (0E9) 

.  OESCt  C'lNfJUA  -  FETCH  ATTRIBUTE  DATA  FROM  ACTIVATED  NODES  AND  FLEMENTS 

length;  1  < J  LANGUAGE!  FTN 

_  HAS  NO  SPOON  5 A Ry  ENTRY  POINTS 

CAN  Hi.  CA  LL 1  U  1YI 

_  OFT  A  OLE 

CAN  Ch..L  THE'  f  JlL  OWING!  *  '  ' 

...  GLTC'N  SHELL  IOISER  IOBQRT  D9ATT 

GETCOR  ENTRY  C^ASSi  -A  In  SEGMENT!  (M820) 

OiGF:  SET  T*.  COORDINATE  OF  THIS  NODE 


G  ERASE, 


( G 1 3) 


SIN. 
(GO  ) 


LFNGTH*  ?  1 6  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  3E  CALLEO  3Yt 

CNNOOF  PORG  "  IORWEL  IDRWND 
CAN  CALL  THE  FOLLOWING* 

CNVTOC  OUATT 


IORWAT 


GETCSS 


ENTRY  CLASS*  MAIN  SEGMENT*  (M6Z0) 

OESC  * .  GET  CENTER  OF  SUBSTRUCTURE 
length*  ca  languages  ftn 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY* 

IORWaT 

This  PROGRAM  OOFS  NOT  INVOKE  ANY  OTHER  PROGRAMS 


CETQAT 


GETLIM 


GETLIN 


GET  RAG'l 


GETRAG 


GETSIZ 


ENTRY  CLASS*  MAIN  SEGMENT*  (DE40) 

DESC*  X-Y  PLOTS  -  GET  X-Y  DATA  FOR  PLOT 
LENGTH*  270  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY* 

_ PROCXA  _ 

CAN  CALL  THE’  "POLL  OWING  l  ' 

IOISER  1 030  <T  IOcNAM  DBATT  08TGET 

ENTRY  CLASS*  MAIN  SEGMENT*  (083* 

OESC  *  GET  THE  LIMITS  OF  THE  DISPLAY 

.LENGTH* _ 33  _ LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY* 

SET  1  GETCES 

CAN  CALL  THE  FOLLOWING* 

10 BARR 

‘  EN  T  R  Y  ~C LA  S~S  7~S  £  CO  N  DA  R  Y  SEGMENT*  (SO  > 

OESC*  READ  FROM  TERMINAL  WITHOUT  RECORO  MANAGER 
SECONDARY  ENTRY  POINT  FOR  *  GET. PUT 
CAN  BE  CALLEO  BY* 

GLCLOK  INOATA  HOLD  OMP 

"EN  T  RV  CL  A  SS'«_  SECOND  AR  V-  SE  GHENT  *  (  PR  Ml ) 

OESC*  GET  RANGE  OF  ELEMENT  NUMBERS 
SECONDARY  ENTRY  POINT  FOR  *  E»ET RAG 
CAN  BE  CALLED  BY* 

PRTA3LE 

"ENTRY  CLASST’mAIn'  SEGMENT*  (  PR  Mi ) 

OESC*  GETS  A  RANGE  OF  ELEMENT  NUMBERS  FOR  ATTRIBUTE  GENERATION 
LENGTH*  10<*  LANGUAGE*  FTN 
SECONDARY  ENTRY  POINTS* 

GETRAG1 

C  AN_  BE  CALlE_0  J3YJ _ _ 

P*RT  ABLE 

CAN  CALL  THE  FOLLOWING* 

PUTEOT  PUTLS  IOISER  ICHKEO  COMPAC 

ENTRY  CLASS*  MAIN  SEGMENT*  C  OB  0» 


OF  SC  1  A  )T  IF  '.CAT  :'!N  -OFT  TEXT  size  depending  on  zoom  level 

L:-i.'Cl  Cl  LANGUAGE  I  FTN 

HAS  NI  IuNOA-'Y  ENTRY  POINTS 
Can  >  :Li!  v  : 

"UTA/Z  ID  Rw  NO  IDRWAT 

T»*:r  '  ■',«»-  o-"s  not  invoke  any  other  programs 

GET. PUT  EM->  .A  ;  :  main  SEGMENT!  <  S  0  > 

OE  Sc  '•  r.  ’  '  A  V  -  i  ■„  A  j L  E  J 
LfU":  I'.'  LANGUAGE!  COMPASS 

S?  C  ■  ••  ■  v  •  NT  ■'  v  •>  II  NTS! 

of  r  i  i  ■.  (  uT  l  I  n 

Tir.  i  ••  ■  f  XC  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 

this  •  ■  >•>  a  m  o.jf  r  not  invoke  any  other  programs 

UTT7ST3  rsrt*V  :i.  ASST-MAPJ  SEGMENT!  —  (SO)  . . 

OESC  S  r.GT  AVAILt  TLE) 

[_  E  n  0  7  m  t  lose  LANGUAGE!  COMPASS 

SECONDARY  t  N  T  *■  Y  f>  0 1  NT  S  I 

.  SECT. SO  GxIT.SO  GRTJ.SO  AnBL.SQ  AMAC.SQ 

D  X I  T  .  S  0 

This  e ri t h; y-  rs  not  inVokeo'by  any  other  programs 

can  call  THE  FOLLOWING! 

ERR.-M  RSPT.SQ  KM. CIO  RM.RCLA  RM.RCLP 
CL  S  V.  S')  RM'JO.SO  RMUp.SQ  WNB  = 


GET.? _ ENT  v  C'..  AGS!  EE  r  ON  0  ARY _ SEGMENT! _ (SO  > 

0  E o  C 1  (-  T  AVAILABLE) 

SFTON;  .wr  ENT- Y  POINT  FOR  !  Z.SQ 
"  CAN  '  '.LI  r  o  <v  ! 


GFLUSH  t':TG  CLASS!  MAIN  SEGMENT!  (GO) 

tJ'ESCT  :.i>i  G  -  A  PH  I C  S  DR  TVER  BUFFER . 

ll;;gt‘<!  to  language*  ftn 

has  n S'  : .-conga ry  entry  points 

CAN  ■>-  CALLED  )Yi 
GIF  PR  PLUMP 

IAN  r-,!-  PILLOWING* 


GIAlRM  ENTRY  CLASS!  MAIN  SEGMENT*  IGOI 

DESC I  INTERTEK  -  RING  MY  CHIMES 
LENGTH!  10  LANGUAGE*  FTN 

HAS  NO  SI'CO  N  0  ARV  ENTRY  POINTS 

CA  N  •V  ~  C  A  L  L  rO  T  Y I . 

Mi. /C  CS  P  ON Pc  N  MX  Y I  PAGER 

CAN  CAL'.  THE  FOLLOWING* 

CO*JIO 


GIASIO  ENTRY  CLASS!  MAIN  SEGMENT!  (M32) 

TEG"!  INTERTEV  ASSIGN  CATEGORY' TO  KEYBOARD  KEY 
LENGTH!  LO  LANGUAGE!  FTN 

"  HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  f  CALLED  BY: 

MfViIT 


88 


CAN  CALL  THE  FOLLOWING! 

-  GCSETI 

HSTBUTfJ  HnT  R  Y~ c  LA  SB-!-  M  a'Tn"  SEGMENT  t  (Gil) 

OESCl  INTERTEK  -  3UTTON  PICK  PROCESSOR 

- LENGTH!  60  2  LANGUAGE  »  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

.  CAN  BE  CALLED  8Vl 

IPICK 

CW  CALL  ThE~T'*OLL  OWING!" 

COMPIO  G  CGuRR  GCSAKR  GCSONE  GCGONE 

GCRCAT  GCUCAT  GCRESI  GCDRAW  GCINPC 

GCGET  GOTOER.  0MRL60 


GICAT  ENTRY  CLASS!  MAIN  SEGMENT!  (G12) 

- DE3C'!— InTERTER- -”SET‘"PICK  CATEGORY 

LENGTH!  75  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3YI 

— - . GlINIT  " GLDEFP  GRFNIT  IPICK  DEINIT1 

MENNIT  SETCAT 

- CWCALir  TTTE“EOLLOWIMG! - - - - - 

GCSETI  GIEkR 


GICLRQ  ENTRY  CLASS!  MAIN  SEGMENT!  (Gil) 

- OESCS  INTERTEK  -  CLEAR  PICK  QUEUES 

LENGTH!  33  LANGUAGE!  FTN 

HAS  NO  SECONDARY- ENTRY  POINTS 
CAN  OE  CALLED  BY! 

"  DRIVER  — •  ■ 

can  CALL  THE  FOLLOWING! 

. GCGONE  0  MRL  30 

■  '51 D  ATT  EnTRV'CEASS"!— SECONDARY - SEGMENT!  (G12) 

OE SC!  INTERTEK  -  SET  DAE  ZOOM,  WINDOW,  ANO  CLIP  LIMITS 

secondary  entry  point  for  i  gidae 
can  BE  CALLEO  3Y ! 

GIZOOM 

■  GTUBE - E^TRY-'CLASST'-MATN - SEGMENT!  (G12) 

OESCl  INTERTEK  -  CREATE  DAE 
LENGTH!  1R2  LANGUAGE!  FTN 
SECONDARY  ENTRY  POINTS! 

GIOAE1 

CAN  BE  ^AlLEO  BY  1 

- MOSPLT  CLRPIC - GINIT - MENNIT  * 

CAN  CALL  THE  FOLLOWING! 

GCGTYP  GCRESI  ITCJ. 

GIOELT  ENTRY  CLASS!  MAIN  SEGMENT!  (GO) 

OESCl  INTERTEK  -  DELETE  ENTITY 

LTNGTH! - 156 - LANGUAGE!  FTN . * 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

DRIVER  EXSTAR  MOAXES  MOZCRS  MOSOS 

CHNGP?  CLROUT  PONPEN  MXYI  FROCXA 


UNCLASSIFIED 

2  oe  2 
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T  a  30F  l_  CLRPlC  TYp^AM 

selatt  gltop  exinit 

ORWACT  IOISER  DELETE 

TATT  CALL"  THE'  FOLLOWING! 

GCGTYP  GCSLFT  GCGLFT 

GCUNPK  GCPK05 


ERASER 

IPPRMT 

DELSF 

GCSRIT 


FUTEDT 

IDRWAT 


GCGRIT 


~ GIDFON  ENTRY  CLASS!  MAIN  SEGMENT!  IG13) 

0E3C*  INTERTEK  -  ERASE  SCREEN  AND  REDRAW  DISPLAY  FILE 

- LENGTH!  2?  . . LANGUAGE!  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 
"  CAN  3E  CALLED  3 Y S 

ERASEM 

- -  -CAN  CALL  THE  FOLLOWING!  ' 

COM?  10  GCOF.AW 


GIDUP  ENTRY  CLASS!  MAIN  SEGMENT!  IG13! 

_  0E3C,  iNTrRTE*  _  DUPLICATE  item 

LENGTH!  231  LANGUAGE!  FTN 

- HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  C!E  CALLEO  3Y! 
moEr?' 

CAN  CALL  THE  FOLLOWING! 

- GCGARR  GCSARR  GCGTYP  GCSSF  6CGSF 

GCGLEN  GCSLET  GCGLFT  GCSRIT  GCGRIT 

- GCGONE  GCGLID  GCUCAT  GCRESI  GCDRAH 

_ GCFILL  JSCUPSF  __ 

GIERR  ENTRY  CLASS!  MAIN  SEGMENT!  I  SI » 

OESCi  INTERTEK  -  REPORT  ERROR 
LENGTH!  1 22  LANGUAGE!  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  3Y! 

OE 1 N IT  1  GCRC Si  GULIN  " GITEM  " GIC AT 
GUTEXT  GUSETP  GISHOW  GIXTND 

CAN  CALL  the  FOLLOWING! 

GFLUSH  PUTLIN  GOTOER. 


GIFETS  ENTRY  CLASS!  MAIN  SEGMENT!  <M1» 

“  DESC:“T\'T£RTr*~“F£TCH~LAST  CROSSHAIR  LOCATICN 

LENGTH!  26  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  -it  CALLED  By  I 

_____  -  MORCNT  M07CR3  FIXDAT  PONPEN  MXYP 

CAN  CALL  THE  FOLLOWING! 

GCDLIM" 

GTNIT  ENTRY  CLASS!  MAIN  SEGMENT!  ( M5 ) 

OESCI  INTERTEK  -  INITIALIZE  INTERTEK 
-  LENGTH!  A  3 1  LANGUAGE!  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 

CAN- BE"  C  ALL  ED'"3Y  I - -  - - 

GRFNIT 

'  CAN  CALL  THE  FOLLOWING!  ‘  ' 

COMPIO  GPRESET  GISU8F  GIOAE  GISHOW 

GOTOER.  REQUEST  OMINIT  RETURN 
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G1PARM ENTRY  CLASS  »  SECONDARY  SEGMENT!  €  G 1  1 » 

OESCI  INTERTEK  -  GET  PARAMETER  PICK  INFORMATION 

- SECOnOARY-EnTR^  POINT  FOR  t  GISNGL 

CAN  BE  CALLEO  BY! 

-  OR!VER  "  “ 

GISHOM  ENTRY  CLASS!  MAIN  SEGMENT!  (G12) 

OESCI  INTERTEK  -  TURN  SUBFILE  ON  OR  OFF  IN  A  DAE 

- LENGTH! - 155  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 

-  CAN  BE  CALLED  BY !  — 

ORIVER  MOPRE  MOFRZ  GRID  CLRPIC 

—  - GINIT  ~  IPPRMT  OELSF 

CAN  CALL  THE  FOLLOWING! 

- gcgty p GCDRAM '  GCUNPK  GCPKOS  GIERR 

—  GISNGL-  ENTRY"  CLASS  !'  MAIN -  SEGMENT!  (Gil) 

OESCI  INTERTEK  -  GET  SINGLE  PICK  INFORMATION 
~  LENGTH!  151  LANGUAGE!  FTN 

SECONOARY  ENTRY  POINTS! 

G'ISTR  G'lPARM  ' 

CAN  BE  CALLEO  BY! 

DRIVER  ~  - ~ -  ’ 

CAN  CALL  THE  FOLLOWING! 

-  GCGARR  ~  GCGLEN  GCGONE 

“(TTSTI? - rNTRV“CCASS"r'SECONDARYr  SEGMENT!  I G 1 1) 

OESCI  INTERTEK  *  GET  STRING  PICK  INFORMATION 
SECONDARY  ENTRY  POINT  FOR  I  GISNGL 
CAN  BE  CALLEO  BY! 

.  DRIVER  -  -  "  ■"  ' 

GTSUBF - ENTRY""CCASST~MAIN - -  SEGMENT!  (GO  I 

OESCI  INTERTEK  -  SUBFILE  CREATOR 
LENGTH!  20  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

ORIVER  MOFPZ  GRIO  CLRPIC  GINIT 

- TYPNAX - -PUTEOT - SELATT  MENNIT 

CAN  CALL  THE  FOLLOWING! 

. . GCREsr - -  -  ‘  " 


— GITEM - “ENTRY  CLASS  1“  MAIN -  SEGMENT!  (GO) 

OESCI  INTERTEK  -  ITEM  CREATOR 

LENGTH  I  3TG - LANGUAGE!  FTN  . . 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 


ORIVER 

E  XSTAR 

HOAXES 

MOZCRS 

GRIO 

dreln 

' libins 

PONPEN 

MXYI 

TYPNAM 

PUTEDT 

SELATT 

GLTOP 

IPPRMT 

MENNIT 

- ihtser- 

- MITEM - 

CAN  CALL 

THE  FOLLOWING! 

■  GCSARR 

GCGTYP 

GCSSF 

GCGSF 

GCSLFT 

GCGLFT 

GCSRIT 

GCGRIT 

GCRESI 

GCDRAM 

- 

-  GCUPSF 

“GCSETI 

GIERR 

"  G ITRAK  ENTRY  Cl  ASS  !  MAIN  SEGMENT!  (Gil) 

DESC!  InTF. RTEK  -  TURN  ON  CROSSHAIRS 
LENGTH!'  '45'  '"LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  Ofc  CALLED  BY! 

MORCNT  MOZCRS  FIXOAT  PONPEN  MXYI 

_  TRKOFF 

CAN  CALL  The  FOLLOWING! 

'GCGTYP'  "'GCJLIh  GCSTUB  GCINPC 

gIXTno  entry  'class «'  main  segment!  (gia) 

OESCl  I NTER  TE  K  -  EXTEND  ITEM 
LENGTH!  134  LANGUAGE!  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 

- gfr— ’ lAClED  3Y  f - - - - . . . 

GRID  HEX  TN 

-  —-  CAN  CALl  THE  FOLLOWING! 

GCSARR  GCGTYP  GCGSF  GCSONE  GCGONE 

GCRESI  GCDEAW  GIERR  ‘ 

Gi'ZdOM  ENTHTYTrA'SSl- mS'In  SEGMENT!  (M5) 

OESC  *  INTERTEK  -  CHANGE  DAE  CONSTANTS 
LENGTH!  56  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

SETWZ  _ 

CAN  CALL  “THE "FOLL  OWING'! 

GCGMM  GCGTYP  GIOAE1 


GLCHCK  ENTRY  CLASS!  MAIN  SEGMENT!  (GL1> 

OESC!  SAVE  OATA  3A3E  ON  TOP  OF  OLD  FILE 
LENGTH!  161  LANGUAGE!  FTN 

3  E  C  0  N  U  A  R  Y-' E  N  T  ry  ”p  01  NT  S I  . .  ' 

GLCHCT 

CAN  BE  CALLED  9Yi  . 

GLTA9LE 

CAN  CALI  THE  FOLLOWING! 

REACT  GLFILN  RESTART  IDISER  ICCHR 

~ - COPYFT - IPF'IT - REQUEST  RETURN 

GTTCHCT  ENTRY  CLASS!  SECONOARY  SEGMENT!  (GL1) 

DESC !  SAVE  OATA  BASE  ON  NEW  FILE 

- - * - SECONOARY  ENTRY  POINT  FOR  I  GLCHCK 

CAN  BE  CALLEO  BY j 

- 'CCTA 1  IT 

GTCLOK  Entry  CLASS!  main  SEGMENT!  (GLi) 

OESC!  LET  USER  ISSUE  INTERCOM  COMMANDS 
LENGTH!  H51  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 

- csNTrTAn:  eo~byt - 

GLTA3LE 

CAN  CALL  THE  FOLLOWING! 

MARK  EXSTAR  EXSTOP  GLTOP  ICCHR 

"  “  GETLIN  PUTLIN  IYIEL01 
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GLOEfP  EnTrY  ClASS'i  MAIN .  SEGMENT! 

DESC >  PROCESS  PICKS  FOR  DEFINITIONS 
LENGTH!  120  LANGUAGE!  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 
~  "CAN  BE  CALLED  3Y  i 

GL  T  ABLE 

CAN  CALL  THf FOLLOWING! 

IGNM  IGPCKM  GI CAT  PUTLIN 


( GL  2) 

(NOT  OPERATIVE) 


IGDEF 


GLOEFS_  ENTRY  CLASS!  MAIN  SEGMENTI  (GL2> 

. . OESC l  SET  UP  PICK  FOR  DEFINITION  (NOT  OPERATIVE) 

LENGTH!  22  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

GIT  ABLE - - -  " 

CAN  CALL  THE  FOLLOWING! 

GLTOP  PUTLIN  ' 


"TUFTIN' 


ENTRY" CLA5S1_SEC0NQARY  SEGMENT!  (MENl) 

OESC!  SET  UP  FILE  FOR  SAVING  DATA  BASE  IN  AGL09AL* 
"SECONDARY  'ENTRY' POINT  FOR  t  FILNAH 
CAN  BE  CAlLEO  3YI 
- GLTA3LE  GLCHCK .  * . 


(DRIVE) 


"TTIFIN  ENTRY"  CLASS  !  SECONDARY  SEGMENTI  (DRIVE) 

OESC!  TERMINATE  XGL08AL*  MODE 
SECONDARY  ENTRY  POINT  FOR  I  GLINIT 
CAN  BE  CALLEO  BY! 

GLTA3LE  '  - 

"GLMIST  ENTRY  CLASS!  MAIN""'  "  SEGMENTi  (GL  1) 

OESC!  TPACE  HISTORY  OF  OOW.N-POIVTERS 
LENGTH!  107  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Yl 

gltable 

can  CALL  the  FOLLOWING! 

_ GLTOP  I G°LKM  IBEAUT  PUTLIN  IGFTR 

GLINIT  ENTRY  CLASS:  MAIN  SEGMENT!  (ORIVE) 

-  OESC!  INITIALIZE  AGLOSAL*  MENUS 

LENGTH!  141  LANGUAGE!  FTN 

~  SECONDARY  ENTRY  POINTS! 

glfin 

CATTBE'  SAILED  "Br! - 

IP  ICK 

*  ~~  CAN  CALL  THE  FOLLOWING! 

SWITCHS  EXTABLE  DETABLE  PRTABLE  PPTABLE 

■"  GLTA9LE  TRKOFF  SETCAT  GICAT  EDITTI 

_ IGFTR _ 

GLLON  ENTRY  CLASS!  MAIN  SEGMENT!  ( GL  1) 

. .  OESC!  DISPLAY  NEXT  LEVEL  DOWN  IN  COMMANO  TREE 

LENGTH!  123  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
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CAN  3E  CALLED  3YI 

gl Table 

CAN  call  THC  FOLLOWING! 

GtTOP—  IGPCKM  PUTLIN IGSON  IGLNK 

G'L’LUP  ENTRY  CLASS!  HAIN  SEGMENT!  (GL  1) 

OESCI  DISPLAY  NFXT  LEVEL  UP  IN  COMMAND  TREE 
_  LENGTH!  76  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

Can  8e~"CAlled  3Yi  ~ .  . 

GLTAoLE 

CAN  CALl  THE  FOLLOWING!  ‘  ~ 

GLTOP  IGPCKM  PUTLIN  IGFTR  IGLNK 


GLOINT  ENTRY  CLASS!  MAIN  SEGMENT!  (DRIVE) 

OTS^r^f4immF-THE^LogAL  CoMMflND  TREE  AND  COMMON  BLOCK  VARIABLES 
LENGTH!  20  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y| 

DRIVER  . .  .  " 

CAN  CALL  THE  FOLLOWING! 

ATT  Blunt  gubuf  . 

GESTDB  -  ENTRY  CLASS « ' MAIN -  SEGMENT!  (GL2) 

DESC 1  GET  STATISTICS  ABOUT  DATA  BASE 
LENGTHl  334  "  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

Can  be- 'Called  "byi  . . . 

GLTAOLE 

CAN  CALL  THE  FOLLOWING! 

GLTOP  IBEAUT  NAMFnm  PUTLIN  IGATT 

I03RIT  I03LFT . IDeNAM  DBATT 

“gTsTOS  EnTrY  COTs!  MATn  SEGMENT!  f GL 21  ' 

□ESC!  GET  STATISTICS  ABOUT  DISPLAY  FILE 
LENGTH!  276  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CAi_LEO  BY! 

GLT  ABLE 

“  CTW—CALl  THE  FOUCOWING! - - 

GLTOP  IBEAUT  PUTLIN  IDBDRT  IDBNAM 


GLSTOP  ENTRY  CLASS!  MAIN  SEGMENT!  (GL  1) 

DESC!  STOP  THE  S  TAG  I  N  G  SYSTEM 
LENGTH!  7  LANGUAGE!  FTN 

FIA'S' NCf"SECONDARY_ENTRY  POINTS - - 

CAN  BE  CALLED  3Y! 

GLTA3LE 

CAN  CALL  THF  FOLLOWING! 

STOP.  . 

Git  ABLE  TfTTR  Y~~CL‘5'SS !  MATN" - SEGMENT!  ~  (DRIVE) 

DESC!  GLOuAl  MENU  SUBROUTINE  SWITCH  TABLE 
LENGTH!  141  LANGUAGE!  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  C ALL  FD  BYI 
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GLInIT 

CAN  CALL  THE  FOLLOWING! 


SWITCHS 

glfin 

glfiln 

IGLDEC 

MOAXNF 

— MOZSRS" 

MORC  NT  ' 

MOZCRS 

MOZPLS 

MOZMIN 

GLSTOP 

GLCHCK 

GLCHCT 

GLCLOK 

GLHIST 

GLLUP 

GLLtN 

GLSTCB 

GLSTDS 

GLOEFP 

GLOEFS 

FRONTVU 

SIDEVU 

TOP  VU 

MOFILL 

MOORW 

SVIEW 

SV IE  WP 

MOSPLT 

MOSOS 

MOFRE 

MOFRZ 

MOASHK 

MOISHK 

MOSSHK 

MOUSHK-" 

■"SROTET"  “ 

'SROTST 

ERASER 

ERASEN 

MOREC 

MOCYL 

MO  S  PH 

ONPENS 

ENTRY  CLASS!  MAIN  SEGMENT!  CM3QI 

OESC !  MOVE  ALPHA  CURSOR  TO  HOME  ON  SCREEN 
LENGTH!  SI  LANGUAGE!  FTN 

"HAS  '"NO "SECONDARY  'ENTRY  POINTS 
CAN  BE  CALLED  BY! 

GLCLOK  GLHIST  '  GLLUP  GLLDN  GLSTDB 

GLSTOS  GLOEFS 

CAN  CALil'THE  FOLLOWING! 

ERASEN  GCHIGH  GCXMIN  GCYMAX  GITEM 

GTOELT  GUTEXT  GUSETP 

ENTRY  CLASS!  MAIN  -  SEGMENT!  (SO) 

DESC !  COMPUTED  GO  TO  ERROR  PROCESSOP. 

LENGTH!  1 A  LANGUAGE!  COMPASS 

SECONOARY  ENTRY  POINTS! 

GOTOtR  7  . . .  ■" 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  FROGRAHS 
CAN  CALL  THE  FOLLOWING! 

A8N0RM.  SYSERR. 


ENTRY  CLASS!  SECONOARY  SEGMENT!  (SO) 

OESC  r  iNOT-AVAILAOLE) - 

SECONDARY  ENTRY  POINT  FOR  I  GOTOER= 

"CAN  BE  CALLED  BY! 

ORIVER  IGLOEC  IPROEC  CHNGP?  IDEDEC 

MXYP  . ~  SETWZ  GINIT  I  DR WE L  IDRWAT 

GETCEN  SETUPG  IORW  ICON  GCWORK 

- C1BUTN - DMP - GIERR  '  DMSTGT  CMINIT 

ENTRY  CLASS!  MAIN -  SEGMENT!  (GO) 

DESC!  INTER TE K  -  INITIALIZE  CONSTANTS  IN  COMMON  BLOCK 

LENGTH!  - 3 - LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 

TTArr  snSALTEO  BY! - - -  "  " 

GINIT 

THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

ENTRY  CLASS!  MAIN"  SEGMENT!  <M5) 

OESC«  INITIALIZE  DATA  BASE  DEPENDENT  GRAPHICS  INFO 

’EENGTHJ - 146 - LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

REACT  FILATT  ORAWFR 
CAN  CALL  THE  FOLLOWING! 


I N I T  20  ICCMR  IBEAUT  ISACT  IOBRIT 

- _  ID-3LFT  I  CBN  AH 

“GRFNIT  EnTRY  CL5SS"V"MAIN  SEGMENT!  <M5> 

OESC  *  INITIALIZE  GRAPHICS  FOR  INTERTEK 
—  -  LENGTH:  71  LANGUAGE:  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  Bt  2 ALL  EO  BY* 

DRIVER 

- CTAN'  CALL'TPir'TOLTOVaNGT  -  -  " 

GINIT  GICAT  SET VU  EOITTI 


GRIDG  ENTRY  CLASS!  MAIN  SEGMENT!  (M8121) 

OESC*.  X-Y  PLOTS  -  DRAW  X-Y  PLOT  GRID 
LENGTH!  573  LANGUAGE!  FTN 

- “HA'S'NO— STCONOARY-'ENTRY  POINTS . . . . ~ 

CAN  BE  CALLEO  3Y ! 

PROCXA  .  . . . . -  . 

CAN  CALL  THE  FOLLOWING! 

LINESG  SETSMG  MLTPLG  SEGHTG  XTOI. 

TRTfli  E  nT'R  Y~T7C  A  S  ST~ 14  In  SEGMENT!  (PR2) 

OESC«  DRAW  ORAFtING  PACKAGE  GRID 

- LENGTH!"  22  5  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

"CAN  BE  CALLED  BY! - 

PRT  ABLE  ORAWFR  CHNGP2 

CAN  CALL  THE  FOLLOWING!  “ . . 

GISUJF  GULIN  GITEM  GUSETP  GISHOH 

GIXTNO  "  ■  "  . 

~ grTjTso  "entry  Class!  secondary  segment:  (So) 

OESC!  (NOT  AVAILABLE) 

secondary-entry  "point  ~for  r  get. so  . ~ 

CAN  BE  CALLEO  JYl 

FSU.SQ - - 

CSGXGY  ENTRY  CLASS  I  SECOND  ARY  —  SEGMENT!  (DE  41) 

QESCt  X-Y  PLOTS  -  SET  LINEAR  X  /  LINEAR  Y 

* - SECONDARY- ENTRY "POINT  FOR  I" INTFLG  . 

CAN  BE  CALLEO  BY! 

DETABLE - - - - 

— GSGXLY - ENTRY" CLASS!  SECONDARY  SEGMENT!  (0E41) 

OESC!  X-Y  PLOTS  -  SET  LINEAR  X  /  LOG  Y 

SEC  ON  CATTY  ENTRY  'POINT"  FOR  I  INTFLG  . 

CAN  BE  CALLEO  BY! 

DETA3LE - - - - 

GSLXGY  ENTRY  CLASST  SECONDARY  SEGMENT!  C0E41) 

OESC!  X-Y  PLOTS  -  SET  LOG  X  /  LINEAR  Y 

SECOND A'RY- ENT  RY— POINT~FOR  T  INTFLG  -  ' 

CAN  BE  CALLED  9YI 

"DETA3LE - - 


G5LXCY 


"ENTRY  CLASS  f  SECONDARY  "" 'SEGMENT! 


(0E41) 


OESC*  X-Y  PLOTS  -  SET  LOG  x 
SECONDARY  ENTRY  POINT  FOR  I 

Can  be  calleo  by* 
de  table 


/  LOG  y 
INTFLG 


GUBUF" 


“Entry  class  *  main  segment*  cgq> 

OESCJ  INTERTEK  -  INITIALIZE  A I3UF  < 

LENGTH*  '  20  LANGUAGE  *  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 

CAN' BE  CALLEO'  BY j" . 

GLOINT 

THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 


GULIN 


ENTRY  CLASS  *  MAIN  SEGMENT*  (GO) 

OESC*  INTERTEK  -  PACK  LINE  DISPLAY  INFORMATION 
TEnGTW  t  121  LANGUAGE  I  FTN 
HAS  NO  SFCONOARY  ENTRY  POINTS 
“CAN  BE  CALLED  9Y* 

GRID  PUTEDT  LINZZ  1DRWLN 

"CA  W  CAICTHE- FOLLOWING* 

GCUPXY  GCGETW  GCSET  GIERR 


GUTEXT 


GUSETP 


ENTRY  CLASS*  MAIN  SEGMENT*  (G12) 

DESC  *  INTERTEK  -  ESTABLISH  ITEM  STARTING  POSITION 
LENGTH*  60  LANGUAGE*  FTN 

"FAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY  I 


“MltfER  '  ETxSTAR 

"HOAXES 

MOZCRS 

GRID 

ORELN  L 1 31  NS 

PONPEN 

MXY I 

typnam 

- PUTEOT  SELATT 

GLTOP 

IPPRMT 

MENNIT 

LINZZ  IORWEL 

IORWNO 

IDISER 

'  "CAN  CALL  THE  FOLLOWING) 

GCUPXY  GCSET 

GC  SET  W 

GIERR 

GUTEXT  ENTRY  CLASS*  MAIN 

SEGMENT*  (G12) 

OESC*  INTERTEK  -  PACK  CHARACTERS  INTO 

X IBUFX 

LENGTH*  245  L 

ANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  3Y* 
“DRIVER  EXSTAR' 

MOL  AX" . 

MOZCRS 

DRELN 

L IB  INS  PCNPEN 

MX  YI 

T  YPNAM 

PUTEOT 

"  SELATT  GLTOP  “ 

IPPRMT 

MENNIT 

METAZZ 

IORWNO  I  LiRWAT 

IDISER 

"CAN  CALL  THE  FOLLOWING* 

GCUPXY  GULIN 

GCGETW 

GCSET 

GIERR 

GXIT.SQ 


ENTRY  Class*  secondary  segment* 
DESC*  (NOT  AVAILABLE) 

SECONDARY  SNTPY  POINT  FOR  *  GET  »SQ 
CAN  BE  CALLED  BY* 

Z.SQ  FSU.SQ 


HOLO 


ENTRY  CLASS*  MAIN  SEGMENT* 

DESC*  ERROR  RECOVERY  INQUIRY 
LENGTH*  327  LANGUAGE*  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 


(SO  ) 


(SI) 
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CAN  BE  CALLED  3Y» 

-  *C0VER 

CAN  CALL  THE  FOLLOWING* 

- GERASF - ICCHR  -  IBEAUT  GETLIN  PUTLIN 

IYIEL01  OMP  IOCTAL 

IALATT  ENTP.Y  ClASS*  M4IN  SE  GHENT  l  (SO) 

-  OESC>  MAKE  UP  ALPHANUMERIC  VALUE  FOR  ATTRIBUTE 

LENGTH*  63  LANGUAGE*  FTN 

- hAS  no” SECONDARY' ENTRY  POINTS 

CAN  BE  CALLEO  BY* 

- PUTATT  I0RWAT  . 

CAN  CALL  THE  FOLLOWING* 

ICCHR  IbEAUT  . 

"TTTRSFT - FMTT7r"Cr«3ISmf4TRr - SEGMENT*  ~  (M822) 

OESC*  SCT  UP  ARROW  ORAW1NG 
“LENGTH*  130  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

“Can  BE  called  by* 

ARROW 

ztsn  c  a  in  h mjnro'w ing  *' 

_ SORT. _ 

IBEAUT  ENTRY  CLASS*  MAIN  SEGMENT*  (SO) 

DESCl  CONVERT  NUMBER  TO  CHARACTERS 


LENGTH!  300  LANGUAGES  ETN 
H As  -NO  SFCONOASY-EnTRY  POINTS 
CAN  BE  CALLED  BY i 


'  GLHIST 

GLST03 

GLSTOS 

SVIEM 

SROTST 

CHNGP1 

ORtLN 

matin 

LI9INS 

ICKRNG 

CNTPnO 

ElREPL 

' elrepp 

EMOVE 

DYLOAD 

DYSEPU 

OYSSTP 

ATTREN 

attrng 

ECREAN 

EATE 

GKJN1 T 

~ Typnam 

TABPRC 

TABXYM 

TAOSCX 

PUTLST 

MOPUT 

REPFA 

NUMBRG 

IOSWAT 

IGETCH 

1 AL ATT  ‘ 

NAMFNM 

HOLD 

CMP 

““  this  program  does  not  invoke  any  other  programs 
~TC*n - nn,Er^:rA'srr_MjrN - segment*  (gi  a* 

OESC!  CHECK  IF  NEW  INFORMATION  WILL  FIT  IN  DISPLAY  FILE 
'LENGTH*  11  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY* 

MOFRZ 

rTa'S“PROGR'/rF~OOES_NOT~INVOKE'  ANY  OTHER  PROGRAMS 

— ICCHR  “  ENTRY  Class*  main  SEGMENT*  CSO) 

OESC*  COUNT  THE  NUMBER  OF  CHARACTERS  IN  AN  ARRAY 
—  LENGTH*  13  LANGUAGE*  COMPASS 

HAS  NO  SFCONOARY  ENTRY  POINTS 

CAN  ”  BE-  CALCED  'BYI - - "  * .  "  - 


STARTH 

FILATT 

GLCHCK 

GLCLOK 

ORELN 

“  “  HATIN 

“LISINS 

IECPRC 

PROCXA 

GRONIT 

TYPNAM 

PUTCOT 

3ELATT 

INOATA 

IDRWND 

I OR  WAT 

IALATT 

HOLD 

IPFUT 

DBINIT 
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IGETCH 

This  PROGRAM  OOCS  NOT  invoke  any  other  programs 

~ENTRY_'CIA3S  !~‘HAIN  SEGMENT  I  (SI) 

OE  SC  !  CHECK  TO  SEE  IF  ALL  NUMERIC  TYPE-IN  INPUT  IS  CORRECT 
LENGTH!  131  L  ANGUAGE l  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y l 


MOORW 

S VIEWO 

SROTFT 

CHNGP2 

GETRAG 

- IECPRC 

‘ETYPS  V  ~ 

“RNGDEL 

RNGDRW 

PTYPE 

EQNUM 

ELREPP 

EMOVF 

DYSFPU 

DYSSTP 

-  ATTRNG 

ATTRNP 

ERNDLO 

EATS 

ESERCH 

ASERCH 

SSAOFF 

CNTPfE 

T  ABXYP 

TA8SCL 

TA8DM 

PROFAC 

CAN  CALL  THE  FOLLOWING! 

- ICRACK  C OMPACS  - - -  - 

ENTRY  CLASS!  MAIN  SEGMENT!  (082) 

OESC »  CHECK  IF  LEAD  IS  ACTIVE 
LENGTH!"  21  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

"CAN‘_8E~CALLED  BY! - -  '  . 

ERO  ERNOLO  EAOOWN  EATS  DRW ACT 

EQUEUP  DELETE  -  ACTIVA  IDBCAN 

CAN  CALL  THE  FOLLOWING! 

‘  "  IDBORT  “ 

TNT RY-CCASS  T' MAIN - SEGMENT!  (08  3) 

DESCI  CHECK  IF  THE  VALUES  IN  A  BEAD  ARE  WITHIN  RANGE 
LENGTHI  46  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y! 

ESERCH  ASERCH  SSAOFF 

TAN" C ALE  THE “FOLLOWING I  - - - - 

OBATT 

ENTRY  CLASS!  MAIN  SEGMENT!  (M80) 

DESC !  GRAPHICS  CHECKING  -  CHECK  IF  YIBUF*  WILL  BE  OVERFLOWED 
LENGTHI  44  LANGUAGE!  FTN 

TTf.S—NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

METAZZ  LINZZ  IDRWLN 

CAN  CALL  THE  FOLLOWING! 

MEXTV  “  MITEM - OEOAD 

ENTRY  CTASSTl  M/TIN - SEGMENT!  (DEO) 

DESC!  CHECK  IF  TYPE-IN  VALUE  IS  IN  THE  DATA  BASE 
LENGTH!  75  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  By  1 

ETYPSV  RNGOEL  RNGDRW  EQNUM  ELREPP 

- ERNOLO - - - 

CAN  CALL  THE  FOLLOWING! 

~  I  BEAUT  IDBFND  IDBRIT  IDBLFT 


ENTRY  CLASS  I  MAIN 


SEGMENT! 


(DE  3) 


p 


fi 


SPLACEMENT  SLICE 
LANGUAGE!  ftn 
ENTRY  POINTS 


ICON 


oe  sc  i  check  i f  oi 
length:  66 

HAS  NO  SECONDARY 
'CAN  If  CALLED  jYS 
OYSSTP  DYU'OE 
CAN  CALL  ThF  FOLLOWING* 
ISACT 


ENTRY  CLASS:  MAIN  SEGMENT:  (M821) 

TJESCrSET  UP 'CONNECTIVITY  ARRAYS  FOR  DRAWING 
LENGTH!  237  LANGUAGE!  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  OF  CAllCU  BY: 

IDRWEL 

CAN  CALL  THE  FOLLOWING! 

'oer:  .  ~ 


IS  active  in  oata  base 


"TCP  ART 


GOT 

ENTRY  CLASS!  MAIN  SEGMENT!  (PRlt 

OESCl  CONVERSIONdl  -  OUMP  OVERFLOW  INFO  INTO  SUBSTRUCTURE  BEAD 
'LENGTH!  63  LANGUAGEJ  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
TA'n  BE  CALL  ED"  BY  ! 

ONELEM 

“CAN  CALL  THE  FOLLOWING!  - 

CLEAR2  OMSFT 


ICRACK 


ENTRY  CLASS!  MAIN  _ SEGMENT! 

"OESCl  (NOT"  AVAILABLE! 

LENGTH!  467  LANGUAGE!  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY: 

MATIN  LISINS  IPFUT 
CAN  CALL  THE  FOLLOWING! 

UNPACK 


CS1 ) 


ICHKED 


TD  BAD  S' 


"ENTRY  CLASS!  MAIN  SEGMENT! 

OESCl  ADD  A  BEAD  AT  A  LEVEL 
LENGTH!  226  LANGUAGE!  FTN 
HAS  NO  3ECONOARY  ENTRY  POINTS 


(DB2) 


TS'N~3C“CAl'LTD  “3Y- I - 

IORNXT  CNTFRM  ECPROC 

CAN  CALL  THE  FOLLOWING! 

IOBRSV  DBRITE  08LEFT  03UPS 

DBSTAT  OBNAME  IOBRIT  IOBLFT 

IOBONN  IDBTYP  IOONAM  DBCHA 


OBTYP 

IOBUPN 


IOBARR 


ENTRY  CLASS!  MAIN  SEGMENT! 

OESCl  CHANGE  VALUES  IN  NO  MANS  LAND 
LENGTH!  105  LANGUAGE!  FTN 
SECONDARY  ENTRY  POINTS! 

03ARR 

Tunrrunnr 


( OB  3) 


“BYT - 

ECPROC  ECHKL  OBTGET 

“CAN  CALL  THE  FOLLOWING! 

OMSET  OMGET  OBCHBD 


GETLIM 


IOBTFM 


IOBTYP  IOBST  A 


100 


SEGMENT! 


(Ob?) 


_ MJ.JjP"*-* 


IOECAN  ENTRY  CLASS!  MAIN 

DE SC !  (NOT  AVAILABLE) 

LENGTH!  342  LANGUAGE!  FTN 
HAS 'NO'  SECONDARY  ENTRY  POINTS 
CAN  OE  CALLED  BY! 

D3CHA  DauPT  ' 

CAN  CALL  THE  FOLLOWING! 


.  . .  DmRLSD 

08CH3D 

IORRSV 

DBRITE 

C3LEFT 

DBUPP 

OBONP 

OBLEN 

DBSET 

OBOLF 

OBDRT 

IDB-IT 

IOBLFT 

I D3UPN 

IOBONN 

IOBTYP 

IEBLEN 

IDBSTA 

IDBulF 

IOBQRT 

~  IDBUDP 

I030NP 

IDBGET 

ICKACT 

IOBCOL  ENTRY  CLASS! 

SECONDARY  SE 

GHENT! 

( D  B  3) 

DE  SC  I  GET  COLUMN  DIMENSION 
SECONDARY”  ENTkY  POINT  FOR  I  IOBTFM 
CAN  BE  CALLEO  BY! 

_  . -  TA3PRC  . '  . .  . . 

IDBOAC  ENTRY  CLASS  I  SECONDARY  SEGMENT!  (DBO) 

QESC !  ACTIVE  ATTRIBUTE 

- 2£C ON 0 ARY"' ENTRY  POINT  FOR  !  IDBRIT 

CAN  BE  CALLED  BY! 

DRWATA  eats  ORWACT 

ENTRY  CLASS!  SECONDARY  SEGMENT!  (OBO) 

DESCl  *  I  D  0  A  0  E 

SECONDARY'  FNTpy_POINr“FOR  I  IDBRIT 
CAN  BE  CALLEO  BY! 

MOFRZ  IDEOEC  MXYP  ERO  ERNDLD 

EAOOWN  Il'RWEL  IORWAT  DRWACT  EOUEUP 

IDRWSS  I ORWST ‘  IDRW  DELETE  C3RITE 

'TD30EP - rNTRV'CTTA’SS'!  SECONDARY'  SEGMENT!  (OB3) 

DESCl  GET  DEPTH  DIMENSION 
,  SFCONJARY  ENTRY  POINT  FOR  x  IOBTFM 

CAN  8E  CALLEO  BY! 

TABPRC  ’ 

"  TDBDl'F - ENTRY  OLA'S  S'!  "SECOND  ARY - SEGMENT!  (OBO) 

OESC  !  ACTIVE  LEFT  POINTER 
—  SECONDARY  ENTRY  POINT  FOR  I  IDBRIT 

CAN  BE  CALLEO  BY! 

REACT  INTSUB  MXYP  EALLS  RESTART 

CLRPIC  DELETE  ACTIVA  NEXTIN  I09CAN 


IOBONN  ENTRY  CLASS!  SECONDARY  SEGMENT!  (DBO) 

"  DE  SC  *  NUMBER  OF  COWN-PO INTE R S 

SECONDARY  ENTRY  POINT  FOR  1  IDBRIT 
CAN  BE  CALLEO  3Y! 

IDE  DEC 
NODAEL 
GETCEN 
DBUPT 


cnterm 
"EHFRGF" 
NO JFEL 
IDRWSS 
IDBADB 


CNTER 

'PORG - 

EkDOWN 

IDRWST 

ODOEL 


DRELN  MATDEF 
'ELREPL  MXYP 
EPUTDN  IDRWEL 
NEXTIN  IDBCAN 


— IDBDAD 
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IDBONP 


ENT  RY  CLASS!  SFEOnDARY  SEGMENT!  (OBO) 
DESC!  r>r  T  NTH  Bohn-poJnTER 
seconds entry  point  for  i  idbupp 

"CAN  "BE  CALlFC  ivt 


CNTEkM 

0  L  N 

•A  T  f>'L  F 

EMFRGE 

PORG 

EL  RE  PL 

FLRf  PP 

MX  Y  P 

NODAEL 

NODFEL 

EROOWN 

E  PUT  uN 

IDRWFL 

GETCEN 

IORWSS 

IORW3T 

N  F  X  T  I N 

I P  HC AN 

DBUPT 

C30EL 

"T0BDKT  ENTRY  CLASS !~SECOnO ARY  SEGMENTl  (080) 

OESCI  ACT  I  E  EIGHT-POINTER 


~  “  "  SECONDARY  EnT-y  OOI 

NT  FOR  I 

IDBRIT 

CAN  BE  L  A  L  L  f  D  DYI 

GLSTDC  MOFr-7 

DRELN 

MATOEF 

IDE  DEC 

UR  W  A  1  A  RETAIN 

LA  NODE 

NODAEL 

SSAOEF 

CET CnT“”  'GET:  AT 

'  IENEXT 

'  DACTSN 

ORWACT 

DRUGS  NEXTIN 

ICKACT 

IDBCAN 

EADOEL 

IOBFND  ENTRY  ClASS!  MAIN 

SEGMENT! 

(OBO) 

OE5C !  FIND  A  bF AD  ADDRESS 

LENGTH!  212  LANGUAGE! 

FTN 

HAS  Nd"'SECON0ARY-ENTRY  POINTS 

CAN  BE  CALLED  BY! 

DRAWER  CNTERM 

CNTER 

CNTABL 

MATDEF 

ICKRNG  I  EC  PRC 

SPCHK 

CAN  CALL  THE  FOLLOWING! 

'  ~ 

I03RIT  IDBLFT 

IOuNAM 

IOBFTY  ENTRY  CLASS!  SECONOARY  SEGMENTl  (DB3) 

- - -  '  OESCI  GET  FORMAT  TYPE 

SECONOARY  ENTRY  POINT  FOR  I  IDBTFM 
~  CAN  OF  CALLED  BY: 

T  ABACI 


IOBGET  ENTRY  CLASS  :  SECONDARY  SEGMENT  I  (OBO) 

OESCi  GET  NTH  wCRO 

SECONDARY  ENTRY  POINT  FOR  »  IDBLIPP 

can  as  called  cyi 

CNTE.RM  OZRST  OBCHBD  IDBCAN  DBUPT 


IOBLEN^  ENTRY  CLASS!  SECONOARY  SEGMENTl  (OBO) 

.  DESC:  3t A D  LENGTH 

_  SECONDARY  ENTRY  POINT  FOR  I  IDBRIT 

__  CAN  0E  CALtr0  3Y{ 

_ OBGH-jQ _ IDBUPP  IDBCAN 

IDBLFT  ENTRY  CLASS!  SECONDARY  SEGMENTl  (OBO) 

DESC!  LEFT  DATA  BASE  POINTER 
SECONOARY  ENTRY  POINT  FOR  I  IDBRIT 
.  CAM  3r  called  DYI 

GLST'JB  IORNXT  CNTERM  CNTABL  MYINIT 

- ICKRNG - ECP.EAN EALLS  GRDNIT  IDBFNO 

OBCHNM  I  OtlC AN  IObAOB  DBOEL 


I OBNAM  ENTRY  CLASSI  SECONOARY  SEGMENTl  (OBO) 

DESC!  GET  NAME 


102 


SECONDARY  ENTRY  POINT  FOR 
CAN  8£  CALLED  BY! 

GLST08  GLSTQS  IDRN 
ORELN  EL RE PL  EC  FE 
GRONIT  tyonan  IORW 
DBCHNM  ID3A0B 


IOBUPP 


IDRNXT  CNTER 
EC  FEAN  EATF 
IORWAT  IOBFNC 


MYINIT 
GET  OAT 
OBLKUP 


I08N0M  ENTRY  CLASS!  SECONDARY  SEGMENT! 

OESC«  GET  NUMBER  OF  DIMENSION 

- SECONDARY  ENTRY  POINT  FOR  !  IDBTFM 

CAN  BE  CALLEO  3YI 

-  TABPRC  ' 

'IDBRIT - ENTRY  CLASS  !  MAIN  '~  SEGMENT! 

DESCf  GRAB  RIGHT  DATA  BASE  POINTER 

- LENGTH! - "212  LANGUAGE!  FTN 

SECONDARY  ENTRY  POINTS! 


(DBO) 


- 10BLFT"  -  IC3UPS 

IOBLEN  IG3DAD 

I083AC  " 

ID3UPN 
IDBST  A 

IDBONN 

IOBOLF 

IOBTYP 

ID0ORT 

CAN  BE  CALLEO  3Y! 
GLSTDB  CNTERM- 

CNTER - 

MATDEF 

ICKRNG 

rngoel  rngdrw 

EONUM 

PORG 

MX  Y  P 

ernolo  eputon 

FSERCH 

ECHKL 

GRONIT 

TABACT  PUTNAM 

IOBFNO 

OBLKUP 

DBCHNM 

‘  NEXTIN  I03CAN 

ID3ADB 

DBDEL 

CAN  CALL  THE  FOLLOWING! 

_  . 

:OBROW - ENTRY -CLASS I  SECONDARY  SEGMENT! 

UESC !  GET  ROW  DIMENSION 

- "-"SECONDARY  ENTRY  POINT  FOR  !  IDBTFM 

CAN  BE  CALLEO  3Y 1 

- TABPRC - 


TDBRSV 


IOBTFM 


-TNTRY  CLASS!  "MAIN  -  SEGMENT!  I 

OESCt  RESERVE  A  BEAD  OF  NEW  LENGTH 
LENGTH!  26  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
ncwrurTArLEO  byi -  - - 

CNNEW  CNELEM  CN  NODE  CNTABL 

- - 031  NIT - IC3CAN  "IDBADS 

CAN  CALL  THE  FOLLOWING! 

- CMGT30  — DBLEN  " 

"TUnrmiA'SS  {“SECONDARY - SEGMENT!  "  I 

OESCt  START  OF  ATTRIBUTE  LIST 

"secondary  entry  point  for  t  idbrit 

CAN  BE  CALLEO  BY! 

DQRITE  IOBUPP  ID9CAN  DSCHA 

_ OBTGET _ I  03ARR _ 

ENTRY  CLASS!  MAIN  SEGMENT!  1 

OESCI  GET  TABLE  FORMAT 
LENGTH!  135  LANGUAGE!  FTN 
SECONDARY  ENTRY  POINTS! 


IFATT 


DBUPT 


idjrdw  ioblol  ioeoep  iobfty  iqbnqm 

This  lnTPY  IS  NUT  invoked  by  any  other  programs 

CAN  C  A  i_  L  THE  FOLLOW  IN  Gl 

IOuTYP  I  Oja  hr  ""  .  ’  ■ 

2  03TYP  Entry  CLASS!  SECONDARY  SEGMENT!  (OBO) 

OESr:  TYPE 

SICOV'A’tY  F n T  i-  Y  POINT  FOR  I  IOBRIT 
can  of  <:allEO  jy: 

M0ISh< —  EOINIT  TYPNAM  GETCEN  OBCHBO 

I F  A T  T  O'JKITE  IOBUPP  09LKUP  OBCHNM 

_  I ,)ECAN  -  OBChA  05UPT  IOBAOB  CBOEL 

GBTC.FT  IOBAHR  IDBTFM 

IOBUPN  E  N  T  3  Y  CLASSl  SECONDARY  SEGMENT  t  IDBQ) 

- orsc  i  number- of  u°-pointers 

SECOND A  RY  ENTRY  POINT  FOR  1  IOBRIT 
_  CAN  BC  CALLED  BY  1 

IOEGEC  MXYP  LFNOC  EROOWN  EPUTDN 

__  -  EOUEUP  IDBCAN  ~  DBUPT  IDBADB  DBDEL 

TtfSW - EN  TRY  ~CI"5US~J  M  A  In  SE  GHENT  !  (OBO) 

OESCl  GET  NTH  UP-POINTER 
_____  -  LENGTH  I  173  LANGUAGE!  FTN 

SECONOARY  ENTRY  POINTS1 

- 1 030NP  ~ ‘  ID3NAM  IDbGET  DBATT 

CAN  BE  CALLED  Bvs 

M  X  Y p  LFNOO  '  ERCOWN  "EPUTON  “  EOUEUP 

IDBCAN  OBUPT  OBDEL 

CAN  CALL  THE  FOLLOWING! 

DMGET  ISACT  ID3UPS  ID8TYP  IOBLEN 

~  IOBSTA 


‘“ToSI/pS - EN T R y"~C1TA’S TT  S ECONOmRY - SEGMENT!  t  OBO) 

OESCl  START  OF  UP-POINTER 
SECONDARY  Entry  POINT  FOR  «  IDORIT 
CAN  BE  CALLEO  3» 1 

DpRITE  ID3UPP  OBUPT 

~TTTEDEC - ENTRY  'CCA'SST  ha TN - SEGMENT!  —  COED) 

OESCl  DISPLAY  AN J  EDIT  MENU  DECISION  FUNCTION 
_  -  LENGTH!  066  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY! 

OF  T  A  PL  £ 

TTATT  CALlTRE-FOLUDWINGI - 

NAMFNM  GOTOER.  IGATT  IDBUPN  1080NN 

1 030A  0  1 03DRT 

IDINF  ENTRY  CLASS!  MAIN  SEGMENT!  CG14) 

OESCl  SPLIT  UP  LF AO  AOORESS 

LTNGTHJ  7 - r  ANGUAGEI  '  FTN . . * 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY! 

ORE  LN  TYPNAM 
'■  THIS  PROGRAM  DOTS  NOT  INVOKE  ANY  OTHER  FROGRAMS 
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"ICISER  '  EnTRV  CLASSt  main  SEGMENTI  <go> 

OESCl  OISPLAY  ANO  EDIT  ERRORS 

- CEnGTH'I  132  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 


CAN  BE  CALLEO  3Y t 


DRIVER 

FILATT 

GLCHCK 

MOORW 

SVIEWP 

“  ‘  '  '  MOFRZ 

SROTET 

MY  I  NIT 

GETRAG 

MATIN 

ALLON 

IECPRC 

ETYPSV 

RNGDEL 

RNGDRW 

- f>TYPE 

EQnum 

ELREPP 

FMOVE 

OYSFPU 

DYSSTP 

ATTRNG 

NO  DON 

ECHOND 

ERNOLO 

- EATS  ~ 

EPUTDN 

ESERCH 

ASERCH 

SSAOFF 

CNTPRE 

GETCNT 

PROCXA 

GETOAT 

IENEXT 

SEl  ATT' 

TABACT 

TABPPC 

TABXYP 

TAB3CL 

TAbDM 

OACTSN 

PUTATT 

PP.OFAC 

ORWACT 

FSLOT 

ONPEN'  ‘ 

CAN  CALL  ' 

THE  FOLLOWING! 

GCDRAW 

GCWIQE 

GITEM 

GIOELT 

GUTEXT 

GUSETP 

IORNXT  ENTRY  CLASS!  MAIN  SEGMENTI  (PR2> 

- DEScr-C£T"IrtXT_OEKD~ AND  NUMBER  FOR  ASSIGNMENT 

LENGTH!  37  LANGUAGE!  FTN 

- HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLEO  BY! 

- DDSTR - EIXDAT  - - 


CAN  CALL  THE  FOLLOWING! 


IdBLFT 

IOJNAM 

"ID6ADB 

IORWAT-  ENTRY"'  CLASS  1  MAIN 

'  SEGMFNTI  ( M  8  201 

DESC !  ORAW 

BEAD  ANO 

ADD  THE 

ATTRIBUTE 

LENGTH! 

351  LANGUAGFI 

FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  BY! 

FI XOAT 

ORWATA 

DRWATT 

DRWACT 

CAN  CALL  THE' FOLLOWING! 

GETCSS 

GETCEN 

GETCOR 

I  DRW 

ARROW 

GIOELT 

“ GUTEXT 

MEXTN 

UTORAS 

ICC  HR 

IBEAUT 

IALATT 

NA  MFNM 

GOTOER. 

IGATT 

D3DAJ  DBDAC 

ID3DAD 

IDBNAM 

DBA  TT 

GETSIZ 

GETCES 

IORWEL  ENTRY  CLASS!  MAIN 

SEGMENTI  ( 

M  8  20 ) 

. .  DESC!  ORAW 

ELEMFNT 

3EA0 

LENGTH  I 

417  LANGUAGE! 

FTN 

~HAS-NO_SECONOARY-£NTRY  POINTS 


CAN  BE  CALLED  BY! 

IQRWSS  I  DRW 
CAN  CALL  THE  FOLLOWING! 

IORWLN  I0RWN3  GFTCEN  GETCOR  ICON 

GUSETP  UTORAS  GOTOER.  ID80NN  IDBDAD 

- TOBONP - OBATT .  . 


'IORWLN  ENTRY  CLASS!  MAIN  SEGMENTI  CM02O) 

OESCI  ORAW  LINE  IN  2D  OR  30 
LENGTH!  40  LANGUAGE!  FTN 
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r 


t 


HAS  MO  SECONDARY  ENTRY  POINTS 
~ '  CAN  aE  CALLED  3Y« 

IORWEL  ARROW 

- CAN  “C  ALL 'THE"  FOLLOWING*  " 

ICK3YT  GULIN 

IORWNO  ENTRY  CLASS J  MAIN  SEGMENT*  ( M  8  20 » 

OESci  Draw  noce  dead 

LENGTHl  65  LANGUAGE*  FTN 

HAS  NO" ^ECONOARV "ENTRY  POINTS 
CAN  t)E  CALLED  BY! 

___  •  IqpweL  IORW 

CAN  CALL  The  FOLLOWING* 

_  CETCOR  GUTEXT  gusetp  utoras  icchr 

GETSIZ  IGETCH 


IORWSS  ENTRY  CLASS  •  MAIN  SEGMENT*  <M821) 

"  -  ~  DESC  *  DRAW  SUoSTRUCTURE  OEAC 

LENGTHl  103  LANGUAGE*  FTN 

~~ — — -  ■  HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLEO  DYJ 

IDRWST  "IDRw'  ""  """  " 

CAN  CALL  ThE  FOLLOWING* 

- IORWEL  0  GOAD  IODONN  IOBDAD  ID30NP 

ICRWST Entry  CLASS:  MAIN  -  '  SEGMENT*  (M8Z1) 

OESC:  ORAW  structure  beao 

LENGTH*  . 6?  "LANGUAGE*  FTN  .  - 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BF  CALLED  3V* 

I  DRW 

CAN  CALL  ThE  FOLLOWING* 

_ _IDRWSS_ _ DBOAO _ 10 BONN _  ID3DAD  ID3DNP 

IORM  ENTRY  CLASS*  MAIN  SEGMENT*  *MB21) 

OESC*  DRAW  Any  LEVEL  BEAO  IF  UNDISPLAYED 
LENGTH!  100  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY  I 

' - ED5TR - FTXrAT - ALTON - RNGDRW  NODAEL 

NOOFEL  LFNOD  ASERCH  IDRWAT  ORWACT 

_  ORWSS  . . 

CAN  CALL  THE  FOLLOWING* 

IORWEL  IORWNO  IORWSS  IDRWST  MEXTN 

_ KITEM _ GOTOER.  _DBOAO  IDBOAO 

IECPRC  ENTPY  CLASS*  MAIN  SEGMENT*  (DEO) 

_  oesc*  check  if  name  type-in  is  in  data  ease 

LENGTH!  147  LANGUAGE*  FTN 

nq  5EC0I)0ARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

- CCPROC - EATS - '• 

CAN  CALL  THE  FOLLOWING* 

— - _  PUTEDT  IDI5ER  ICCHR  ICHKED  COMPAC  ■ 

_  IOJPNO  ' 


( 

\ 


106 


ENTRY  CLASS  I  MAIN  SEGMENT!  (Ml) 

OF  SC  t  GET  NEXT  jEAO  IN  CYCLING  THROUGH  ACTIVE  BEADS  FOR  EDITING 
LENGTH!  105  LANGUAGE!  FTN 
“SEC ON  CArY"EnTRY  “POI  NTS  I 
IENIT 

CAN  BE  CALLED  BY! 

EATS 

CAN  CALL  THE  FOLLOWING! 

IOISER  IU3CRT  NEXTIN  NEXT  8 


ENTRY  CLASS!  SECONDARY  SEGMENT!  (Ml) 
OESC!  INITIALIZE  XIENEXT* 

SECONDARY  ENTRY  POINT  FOR  I  IENEXT 
CAN  BE  CALLED  3YI 
EATS 


ENTRY  CLASS!  MAIN  SEGMENT!  (EX) 

DESC  I  EXECUTIVE  MENU  OECISION  FUNCTION 
LENGTH!  53  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

- rXTAOLE  . 

CAN  CALL  THE  FOLLOWING! 

NAMFNM  IGATT  ' 

ENTRY' CLASS!"  MATH  SEGMENT!  (DBO) 

OESC !  fetch  THE_LOCATION  OF  ALPHANUMBERIC  ATTRIBUTE 

‘LENGTH!  150  “LANGUAGE!  FTN 

HAS  NO  SFCONOARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

CNNEW  MATOEF  ATTRNG  DBINIT  D3CHA 

"CAN  CALL  THE  FOlL  OWING! 

DHRLBO  OMSET  DM  GET  IGATT  ISACT 

TDBRSV NUMFNM - I06TYP 

"ENTRY  CLASS'!  SECONDARY  SEGMENT!  (DBO) 

DESC!  RETRIEVE  ACTION  INDICATOR  FROM  MENU  BEAD 
SECON GARY  ENTRY  POINT  FOR  I  IGFTR 
CAN  BE  CALLEO  3Y1 

- DRIVER . . 

ENTRY  CLASS l~ MAIN  SEGMENT!  (DBO) 

OESC!  (NOT  AVAILABLE) 

“LENGTH!  R5  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 

~Cf>T'3E~  CALLED  3Y! -  -  . ~~ 

XEXOEC  GLST03  IDEDEC  SELATT  PUTATT 

IDRWAT  IFATT  ISACT  IGETCH 

CAN  CALL  THE  FOLLOWING! 

"  DMGET  “  “ 


‘EHTRY“CT:A'SS'r— SECOND  ARY —  SEGMENT!  (DBO) 

OESC!  RETRIEVE  DEFINITION  FIELD  FROM  MENU  BEAD 
SECONDARY  ENTRY  POINT  FOR  I  IGFTR 
CAN  BE  CALLED  3YI 
-  GLOEFP  “  - 


ENTRY  Class  1  SECONDARY  SEGMENT!  <M32> 

OESC  *  UTRIEVf  rE F  A  UL  T  VALUE  FROM.  MENU  BEAD 

secondary  entry  point  for  i  igpckm 

CAN  3t  CALLED  BY! 

DRIVER  EXEC 

Entry  Class s  secondary  segment*  jdbd) 

OESC)  R  c  T  R  I  C  V  t  DEFAULT  INFO  COUNTER  FROM  MENU  BEAD 
'SFCu-.CARY  ENTRY  point  FOR  I  IGFTR 
CAN  or  CALL'D  3YI 
I GP  C<M 

ENTRY  CLASS!  rF~OND ARY  SECMENTI  ( CB  0) 

OF  SC  »  -  T  R  I  (  V  (  f;  FAULT  1NEO  FROM  MENU  BEAD 

“SEC  ON  C  A  R  Y"  E  NT  RY  POINT  FOR  I  IGFTR 
CAN  HE  CALlEO  J>< 

IGPCKM 


ENTRY  CLASS!  MAIN  SEGMENT!  (DB3> 

DESCI  0  r.  T  ATTRIBUTE  NAME  ABBREVIATION 
TFnGTH!  132  LANGUAGE!  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY  1 
IDRHNO 

CAN  CALL  THE  FOLLOWING! 

_ ICC Nr_ _ I  BEAUT  _  _ IG  ATT  0 B A T T 

ENTRY  CLASS!  MAIN  SEGMENT!  CDBO) 

OESC!  RCTRIFvF  POINTER  TO  FATHER  FROM  MENU  BEAOS 


LENGTH  I 

36  G 

L  ANGUAGE  1 

FTN 

SECONDARY 

ENTRY  POINTS! 

IGSON 

IGLNK 

IGACT 

IGRUT 

IGT3L 

IGPS Y“ 

TGPSY“ 

IGDEF 

IGPNC 

IGPNW 

IGPS 

I G  P  f-.C 

IGPRW 

IGPRS 

IGPCN 

IGPC3 

IGOVN 

IGDVS 

IGOPT 

CAN  BE  CALLED  3Y! 

DRIVER 

STARTM 

GLINIT 

GLHIST 

GLLUP 

CAN  CALI 
- OMGET 

THE  FOLLOWING! 

_ _ _  _  . 

ENTRY  CLASS!  MA  IN  -  SEGMENT!  (GL  0) 

OESC!  GL03AL  MENU  OSCISION  FUNCTION 
LENGTH!  123  LANGUAGE!  FTN 
HAS  NO  SECONOARY  ENTRY  POINTS 

"CAN  BE"  CALLED  BY! . . .  . 

GLT ABLE 

CAN  CALL  THE  FOLLOWING! 

GOTOER. 

ENTRY  CLASS!  SECONDARY  SEGMENT!  (DBO) 
UESCI~RETRIEVE“POINTERTO  NEXT  BROTHER  FROM  MENU  BE  AO 
SECONDARY  ENTRY  POINT  FOR  I  IGFTR 
CAN  BE  CALLEO  BY! 

ORIVER  GLLLP 


GLLON 


MENNIT 


IGNM  ENTRY  CLASS*  MAIN  SEGMENT*  (GL2) 

OESC  *  (NOT  AvAIlAQL  El 
LENGTH*  35  LANGUAGE*  FTN 

- has  no^seconoa^v  entry  points 

CAN  RE  GALLED  3»» 

-  —  gloefp 

can  call  the  FOLLOWING* 

■-  -  -  OMGET 


“TCOPT - TNTPY-'CLA'3S'rSFC0N3ARY  “  SEGMENT*  (080) 

OESC*  RETRIEVE  OPTION  FIELD  FROM  MENU  BEAD 

- - secondary  entry  point  for  *  igftr 

Can  be  called  by* 

ORIvER 


— TGPCKM - rWTPT-CETSST-HATN - SEGMENT* 

OESC*  RETRIEVE  PICK  MESSAGE 

- LENGTH*  140  LANGUAGE*  FTN 

SECONDARY  ENTRY  POINTS* 

_____ —  IGPRMM  IGOFV 

CAN  DE  CALLED  BY  * 

- ORIVER - GLHIST - GLLUP"  GLLDN 

MENNIT 

- XAN  CALL  THE  FOLLOWING* 

IGPNC  IGPNW  IGPS  IGPRC 

- IGPRS  IGPCN  IG  PCS  IGDVN 

DMGET 


(M3  2) 


GLOEFP 


IGPRW 

IGOVS 


IGFCN  ENTRY  CLASS*  SECONDARY  SEGMENT*  (OBOI 

- - DESC,  3ET3I£VE  r  WORDS  IN  ID  BLOCK  FOR  PICK  MSG  FROM  MENU  DEAD 

SECONDARY  ENTkY  POINT  FOR  I  IGFTR 

- CAN  BE  CALLED  3Y* 

IGPCKM 


IGPCS  ENTRY  CLASS*  SECONDARY  SEGMENT*  (DBO) 

DESC*  RETRIEVE  ADOR  OF  10  WORDS  FROM  MENU  BEAD 
SECONDARY  ENTRY  POINT  FOR  *  IGFTR 
CAN  BE  CALLED  3Y « 

IGPCKM 


IGPNC  ENTRY  CLASS*  SECONDARY  SEGMENT*  (OSO) 

- - OESC*  RETRIEVE  =  CHARACTERS  IN  PICK  MESSAGE  FROM  MENU  BEAD 

SECONDARY  ENTRY  POINT  FOR  *  IGFTR 

- - — cflH  g£  CfiLLE0  9yj  - 

IGPCKM 


IGPNW  ENTRY  CLASS*  SECONDARY  SEGMENT*  (OBOI 

-  DESC*  RETRIEVE  =  WOROS  IN  PICK  MESSAGE  FROM  MEN  U  BEAD 

SECONDARY  ENTRY  POINT  FOR  *  IGFTR 
CAN  BE  CALLED  BY  1 
IGPCKM 


IGPRC  ENTRY  CLASS*  SECONDARY  SEGMENT*  (DBO) 

- - - DESC*  RETRIEVE  =  CHARACTERS  IN  PROMPTING  MESSAGE  FROM  MENU  BEAD 

SECONDARY  ENTKY  POINT  FOR  *  IGFTR 
CAN  BE  CALLED  BY* 
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IGPCKM 


IGPRMM  ENTRY  CLASS  t  SECONDARY  SEGMENT*  (M321 

- DESC »  RrTRIEVF  PROMPT  MESSAGE  FROM  MENU  BEAO 

SECONDARY  E  N  T  rc  Y  POINT  FOR  «  IGPCKM 

-  CAN  3E  CALLEO  3YI 

IPPRMT 


I  GPRS  ENTRY  CLASS  l  SECONDARY  SE  GHENT  I  (OBO) 

- OtSCs  RETRIEVE  AOOR  OF  PROGMPTING  MESSAGE  FROM  MENU  BEAD 

SECONLArvY  ENTRY  POINT  FOR  J  IGETR 
"  ""  CAN  BE  CALLED  3Yt 

IGPCKM 


IGPRW  ENTRY  CLASS*  SECONDARY  SEGMENT*  (DB01 

- DESC1- (NOT  ‘AVAIL  A  OLE) 

SECONDARY  ENTkY  POINT  FOR  *  IGETR 
‘  CAN  BE  CALLED  -3 Y * 

IGPCKM 


IGPSX  ENTRY  ClAbS  *  SECONDARY  SEGMENT*  (OBO) 

- OESCf'RtTRlFVf  X-POSITION  ON  SCREEN  FROM  MENU  9EA0 

SECONDARY  ENTRY  POINT  FOR  t  IGETR 

- CAN  BE  CALLED  3Y* 

DRIVER 


igpsy  entry  class*  secondary  segment*  cpbo* 

D'ESC'r'RETRTEvE  Y-POSITION  ON  SCREEN  from  MENU  BEAD 
SECONDARY  entry  POINT  FOR  I  IGETR 

- CAN  BE  CALLEO  BY* 

DRIVER 


IGPS  ENTRY  CLASS*  SECONDARY  SEGMENT*  (OBO) 

OESC*  RETRIEVE  AOOR  OF'  PICK  MESSAGE  FROM  MENU  BEAD 
SECONDARY  ENTRY  POINT  FOR  «  IGETR 
CAN  BE  CALLEO  BY* 

IGPCKM 


IGRUT  ENTRY  Class*  SECONDARY  SEGMENT*  (D80> 

- - OfSCT'RETRIFVE  CU3R.0UTINE  NAME  FROM  MENU  BEAD 

SECONDARY  ENTkY  POINT  FOR  I  IGFTR 
'  CAN  BE  CALLED  3YJ 

DRIVER 


IGSON  Entry  CLASS*  secondary  SEGMENT*  (0801 

DFSC*  RETRIEVE'  BEAD  AODPESS  OF  SON  FROM  MENU  BEAD 
SECONDARY  ENTRY  POINT  FOR  *  IGFTR 

-  CAN  BE  CALLED  3Y* 

DRIVER  GLLDN 


IGTQL  ENTRY  CLASS:  SECONDARY  SEGMENT*  (OBO! 

- DESS* 'RETRIEVE ' ADDRESS  0^  SUBROUTINE  FROM  MENU  BE AO 

SECONDARY  ENTRY  POINT  FOR  »  IGETR 
"  -  -  -  -  CAN  BE  CALLFO  3Yt 

DRIVER 


I N0UE 


S£  GMENT  t 


<O£>0! 


EMT^-Y  Class:  main 
OE  SC  I  (‘JOT  AVmILA3LE> 
length:  17  language:  etn 

■MAS  NO  SECONDARY  ENTRY  POINTS 
CAN  9E  CALLEO  3Y: 

DMREAO  0  MX NIT 

THIS  PROGRAM  COES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

INDATA  ENTRY  CLASS!  MAIN  SEGMENT!  «*3?) 

- - UESC  >  "REAO  TEXT  INPUT  AND  FORMAT  IT  FOR  CRACKING  ALGORITHMS 

length:  164  language:  ftn 

- - His  N0  SEC0NDARV  ENTRY  points 

can  8E  CALLED  3Y! 

-  IREAO 

CAN  CALL  THE  FOLLOWING! 

- TCCHR  GFTLIN  ~  " 

“Tnitxy  entry  Class:  main  segment:  (dead 

OESC !  X-Y  PLOTS  -  INITIALIZE  X-Y  PLOTS 
LENGTH!  133  LANGUAGE!  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 

CAN"  ’BE  'CAUL tD  3YJ . 

DETABLE 

__  CAN  CALL  THE  FOLLOWING! 

CLRPIC  RSETHG  GCXHIN  GCYMIN  GCYMAX 

INIT2D  ENTRY  CLASS!  MAIN  SEGMENT!  (M5> 

ucsc ,  Initialize  ao  drawing  mode 

LENGTH!  72  LANGUAGE:  FTN 

- '“HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  3Y! 

DETABLE  ORAWER  GRDNIT  INIT3N 

CAN  CALL  THE  FOLLOWING! 

- CLRPItr - GCXMIN  "GCYMIN  GCYMAX  SETVU 

““INIT3N - “  ENTRY  CLASS!  HAIN  SEGMENT!  (M5> 

OESC  !  INITIALIZE  3D  MoOE 

.  LENGTH!  23  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

- CATTBE- CALLED  3YJ - -  — "  .  “ 

DETABLE 

~  "  “  XAN  CALL  THE  FOLLOWING! 

IN  I T  2D  CLRPIC  SETVU 


intflg  entry  class!  main  segment:  (dead 

TTE3C1— X-Y''OL'OTG'~~SET“FLAGS  FOR  GRID  STYLE 
LENGTH!  162  LANGUAGE!  FTN 
'  ~  SECONOARY  ENTRY  POINTS! 

GSLXLY  GSLXGY  GSGXLY  GSGXGY  LSSLD 
“  LSSDH  LSLDH 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
CAN~CAU“THE“FOLLOWINGI  *  ■  ■ 

SETSM& 

INTSU8M  ENTRY  GLASS!  SECONDARY  SEGMENT!  1PRM1) 

OESC!  INITIALIZE  MATERIAL  PROPERTY  GENERATION 
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SECONDARY  ENTRY  POINT  FOR  :  INTSUB 
CAN  BE  CALlED  JYt 
_ my INIT  _ 

INTS'JBS  ENTRY  CLASS:  SECONDARY  SEGMENT:  ( DR  Ml > 

DESC  >  INITIALIZE  MATERIAL  PROPERTY  DEFINITION  FOR  ENTIRE  STRUCTURE 
SECONDARY  ENTRY  POINT  FOR  :  INTSUB 
Can  tit  CALLED  8 r« 

PRTAiLE 


INTSU35  ENTRY  CLASS:  SECONDARY  SEGMENTt  (PRM1) 

- -  OESCt  INITIALISE  MATERIAL  PROPERTY  DEFINITION  FOR  PICKEO  ELEMENTS 

SECOND A  LY  ENTRY  POINT  FOR  I  INTSUB 
- CiN  gE  ctLL-D  gy. 

PRTA OLE _ 

INTSUB  ENTRY  CLASS:  MAIN  SEGMENTt  (PRM1> 

-  D£3C!  INITIALIZE  MATERIAL  PROPERTY  DATA  BASE  PROCESSING 

length:  ns  language:  etn 

— — - - SECONOARY  ENTRY  POINTS* 

INTSUOS  INTSU'JS  INTSUBM 

- ClN- BE'  CAIlECPBY  :  . 

PRT  A  JLE 

- X AN  CALL  THE  FOLLOWING* 

CLRPIC  ONPENN  06  DAO  OBORT  C90 AC 
- IDBDLE  . 

10'cTaC  EnTr Y~£l  a  s  s  * "  >1  ATn  SEGMENT*  (SI ) 

DESC  *  CONVERT  INTEGER  TO  OCTAL  REPRESENTATION 

- LENGTH:  3  S  LANGUAGE*.  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  9Y« 

HOLD  OMP 

- T>iIS"PRjGRA'R"DOr;i"N or  INVOKE  ANY  OTHER  PROGRAMS 

TP POT - ENTRY  CLASS:  MAIN  SEGMENTI  (SI) 

OESC  *  00  PERM  FILE  MANIPULATION  FROM  FORTRAN 

-  LENGTH!  221  LANGUAGE*  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 

- C5-Fr3r-CALLro-grr_-— - .  ••  -  " 

EXSTAR  FILATT  GLCHCK 

- - -  '  CAN  CALL  THE  FOLLOWING* 

ICC  HR  UNPACK  PERMFIL  JCRACK 


I  PICK  ENTRY  CLASS*  MAIN  SEGMENT*  (M30) 

- j-pR0CESS~3UTT0N  -PICTC . 

LENGTH*  1 0  A  LANGUAGE!  FTN 
-  mas  NO  SECONOARY  ENTRY  POINTS 

CAN  BE  CALLED  BY  I 
DRIVER  PAGER 
CAN  CALL  The  following: 

- GL'INTT - ERASER  ERASEN  GIBUTN  GICAT 

~IppOEC  entry  class*  main  segment*  (pp> 

OESCt  POST-PROCESSOR  MENU  DECISION  FUNCTION 
LENGTH*  11  LANGUAGE!  FTN 
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HAS  NO  3F.C0N0ARY  ENTRY  POINTS 
CAN  BE  CALLfO  9 Y! 

PPTABLE 

- THIS 'PROGRA  M  OOCS'NOT  INVOKE  ANY  OTHER  PROGRAMS 

IPPRHT -  ENTRY  CLASS*  MAIN  SEGMENT*  <M32> 

3ESC*  DISPLAY  PROMPTING  message 

-  -  LENGTH:  3  T  6  LANGUAGE!  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 

- CAN~C£'  CALLED  8 Y  S 

ORIVER 

-  CAN  CALL  THE  FOLLOWING* 

igprmm  gitm  gidelt  gutext  gusetp 

"  -  GISHOW 

— IProfc - ent^v- crass r- main  segment*  cpro> 

Dtsc>  PRE-PROCESSOR  MENU  OECSION  FUNCTION 

-  LENGTH!  25  LANGUAGE*  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 

-  ' -  CAN  3E  CALLED  3Yt 

PRT A jLE 

- CATT CALL"  THF-FTJCEOWING*  . 

GOTOER. 

IREAD  ENTRY  CLASS*  M^IN  SEGMENT:  (M32> 

-  OF  SC  I  READ  A  TEXT  STRING  INTO  NVALS  IN  EDITT  COMMON  9LOCK 

LENGTH)  156  LANGUAGES  ETN 

- TUS'Nd  SECONDARY" ENTRY  POINTS 

CAN  BE  CALLFO  3Y« 

■  -  '  DRIVER 

CAN  CALL  THE  FOLLOWING* 

-  -  - '  INDATA 

"TS'SCT - E^T RY  C LASS  rWTN' - SEG MEN T :  (n6Q) 

0! SC  I  SCAN  THE  ACTIVE  ATTRIBUTE  LIST  OF  THE  LEVEL  FOR  THE  NAME  GIVEN 

-  LCnGTh:  70  LANGUAGE*  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  3Y: 

PRINCP  EQSTR  cnnew  icksl  grdnit 
- testt  i 03u°p  ' 

CAN  CALL  THE  FOLLOWING! 

-  tgatt  numenm 

“ISWTCHO  ENTRY  "LASS!  SECONDARY  SEGMENT!  (DRIVE) 

□ESC!  CALL  The  SITUATION  DEPENDENT  FUNCTION 

- ^rcONpARY  "ENTRY  POINT  FOR  J  SWITCH 

CAN  HE  CALLED  9YI 
-  -  ORIVER 

I TOJ=  ENTRY  CLASS!  MAIN  SEGMENT!  (SO) 

OESC:  INTEGER  TO  INTEGER  EXPONENTIATION. 

- -LENGTH! - 16 - “LANGUAGE!  COMPASS 

SECONuAr-.Y  ENTrY  POINTS* 

"  -  ""  ITO J. 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  FROGP.AMS 
- -  THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 
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IToj.  Entry  class t  secondary  segment?  t so > 

OESC?  (NOT  AVAILABLE) 

- SECONDARY  Entry  point' for  «  ITO J= 

CAN  3E  CALLEO  BY? 

- - - —  SETUPG  GIOAE  OMINIT  RFILEB  SETFETR 

rviEiOE  entry  class?  secondary  segment?  isd 

OESC?  (NOT  AV..ILA3LE) 

Seconoary  entry  point  for?  yield= 

CAN  BE  CAlLEO  3Y? 

— -  Ex  ECO  Y  IEL01=  ' 

TTIEtOS  EnTrT  CLASS  ?  SECONDARY  SEGMENT?  (Si) 

OtSC?  (NOT  AVAILABLE) 

- St  Con  dary'tnt  ry“poi  nt  f  or  't~yielo=  * .  . 

CAN  8E  CALLED  BY? 

EXtCC  Y IElO i= 

rY^ICLOl  ENTRY  CLASS?  SECONDARY  SEGMENT  ?  (SI) 

OESC?  (NOT  AVAILABLE) 

SECONOA RY'EnT RY  POINT  FOR  i  "YIELOl* 

CAN  BE  CALLEO  BY? 

- EXECC  GLCLOK"  "HOLD 

TYIELO -  ENTRY  CLASS?  SECONDARY  SEGMENT?  (SI) 

OESC?  (NOT  AVAILABLE) 

SE'ConOArY'TnTRY  poINTToR  ?  "YI£LD= . . 

CAN  BE  CALLEO  BY? 

- -  YIELD1  =  -- . 

~ LABELS  ENTRY  Class?  main  SEGMENT?  (M8122) 

OESC?  X-Y  PLOTS  -  GENERATE  X-Y  PLOT  LABELS 
LENGTH?  1002  "  LANGUAGE?  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  Be  CALLEO  BY? 

PROCXA 

CAN  CALL  THE  FOLLOWING? 

NUMBRG  SETSMG  MLTPLG  SEGMTG  ALOGIO. 

XTor- - -  "  '•  . . - 

C7TNOOE  ENTRY  CLASS?  MAIN  SEGMENT?  ( DE 3) 

OESC?  OR  A  W  ALL  CLEMENTS  THAT  OWN  ALL  THE  NODES  DISPLAYED  ON  THE  SCREEN 
LENGTH?  24  LANGUAGE?  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

- CAN~B£f~  CALL  ED  ^Y? - ' - —  . .  . - 

DETABLE 

“  “  CAN  CALL  THE  FOLLOWING? 

_  _  LFNOD  I03URT 

LEGNOG  ENTRY  CLASS?  MAIN  SEGMENT?  (M810) 

- DE3Cr_tNor-AvaiLA3LEi -  - - —  -  -  - 

LENGTH?  26  LANGUAGE?  FTN 

- -  Hfls  NQ  sfC0N0£^y  ENTRY  POINTS 

CAN  9E  CALLED  9Y! 

~~ -  NUMBRG  TITLEG 
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CAN  CALL  THF  FOLLOW INGI 
MET  M7 

IFNOOr  ~  ENTRY"  CLASS  I  'MAIN  '  SEGMENT!  (OET) 

OESCt  DkAw  ALL  ELEMENTS  THAT  OWN  ALL  THE  NODES  PICKED 
LENGTH  t  17  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  SE  JALLEC  BY! 

DE TABLE 

CAN  CALL  THr-FOLL OWING!" — . . 

LFNOO  MfcEAO 

LFNOO  ENTRY  CLASS!  MAIN  SEGMENT!  (0E3) 

OESCl  MAKE  THE  CAlL  TO  <I0RW/  roR  LANODE  AND  LFNCDE 

_ _ LENGTH!  67  LANGUAGEt  FTN 

MAS' N 0  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEQ  BY! 

LANODE  L  FN  ODE 
CAN  CALL  THE  FOLLOWING! 

IDRW  IOQUPN  IOOUPP  ACTIVA 

~TTSIn$T  E n T a y"  C L A GS"l~ SECONDARY  SEGMENT!  (PRM?) 

CESC!  PROCESS  MATERIAL  PROPERTY  LI9RARY  REQUEST 
SECONDARY  ENTRY  POINT  EOR  I  LIBINS 

_  CAN  OE  CAlLEO  3Y! 

PRTABLE 

~rBTNS  E  N  T  R  L  A  S  S’ !  ~MA7N - SEGMENT!  !PRM2) 

3ESC!  PROCESS  MATERIAL  PROPERTY  OATA  BASE 
LENGTH!  632  LANGUAGE!  FTN 

__  SECONDARY  ENTRY  POINTS! 

LIQINSA  CLRLI3 

CAN  BE  CAlLEO  By i 

PRT  ABLE -  - 

__  CAN  CALL  the  FOLLOWING! 

'  CNTABL  MATCEF  3UTEDT  GCDRAW  GCWIDE 

_  GITEM  GUTEXT  GUSETP  ICCHR  ISEAUT 

ICR ACK  OMGET 

-  C I  BIN  PITRY— CUA'S  ST-  MAIN - SEGMENT!  (PRM) 

«  PROCESS  GENERIC  MATERIAL  TYPE 
LENGTH!  114  LANGUAGE!  FTN 

_  HAS  NO  SECONDARY  ENTRY  POINTS 

’  . .  ""  CAN  BE  CALLED  BY! 

_  PRTA3LE 

~CrAN~CAL'U— TKPTOLUOWIMG! - - - 

_  TYPVAL  OMGET 

LI_NESG  ENTRY  CLASS!  MAIN  SEGMENT!  C  M  6 1 0 1 

OESC!  CREATE  X-Y  PLOT  OR  CONTOUR  PLOT  LINE  SEGMENT 

_ _ LENGTH!  103  LANGUAGE!  FTN 

Rfl'S'~N(J~SECONOARY~ENTRY  POINTS 
CAN  BE  CALLEO  3Yt 

CNTOR  QIKGRF  GRIDG  SCAN 
CAN  CALL  THE  FOLLOWING! 

METAZZ 


ENTRY  CLASS:  'IAIN  S£  GMEN  T :  tM  6  1 0  I 

OrSCt  4  Qbl/IGb  -^_0RAWS  A  LINE  WITH  EE  A  M  ON  OR  OFF 

LENGTH  f  b  7  ~  LANGUmGEI  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  tJE  CALLED  3 Y » 

MET  A  7  7 

cAn  Call  the  following: 

_ ICK3YT  SCAL/IZ  _ GU  UN  GUSETP  UTORAS 

ENTRY  CLASS:  SECONDARY  SEGMENT:  C0E41) 

OESC  t  X-Y  PLOTS  -  SET  LONG  DASH  PLOT 
SECONDARY  ENTRY  POINT  EOR  i  I NT FLG 
CAN  BE  CALLED  3Y ' 

DETA  3LE 


ENTRY  CLASS!  SECONDARY  SEGMENT:  C0E41) 

OESC  :  X-Y  PLOTS  -  SET  SHORT  DASH  PLOT 
SECONDARY  entry  point  FOR  :  INTFLG 
CAN  BE  CALLED  3Y: 

PET  ABLE _ 

ENTRY  CLASS:  SECONDARY  SEGMENT:  CDE41I 

OESC:  X-Y  PLOTS  -  SET  SOLID  LINE  PLOT 
SECONDARY  ENTRY  POINT  FOR  :  INTFLG 
CAN  3E  CALLEO  BY: 

OET  ABLE 


ENTRY  Class:  MAIN  SEGMENT:  (M8140) 

OESC:  CONTOUR  PACKAGE  CRITERIA  TESTER 
LENGTH:  46  LANGUAGE:  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLEO  By: 

The  SH2  ■  . 

THIS  PROGRAM  OOES  NOT  INVOKE  ANY  OTHER  FROGRAMS 

ENTRY  CLASS:  SECONDARY  SEGMENT:  (DRIVE) 

DESCI  INITIALIZE  RECOVERY  PACKAGE 
SECONOARY  ENTkY  POINT  FOR  :  RCOVER 

TTA'!T_3E"CALL  ED~'5Y  ! - - 

DRIVER  GLCLOK 

ENTRY  CLASS:  MAIN  SEGMENT:  <PRM2) 

OESC:  (NOT  AV-ILABLET 
LENGTH:  301  LANGUAGE:  FTN 

'ffAS_SO_S'rCONOARy“FNTRY  POINTS  - -  *" 

CAN  BE  CALLEO  3Y: 

MATIN  L I  BINS 
CAN  CALL  THE  FOLLOWING: 

I06FND  IF  ATT  IDBRIT  IDBDNN  IOBDRT 

IOBONP  DBATT  08CHA 


ENTRY  CLASS:  SECONOARY  SEGMENT:  (PRM2J 

OESC i  RETRIEVE  USER  INPUT  FOR  MPDB 
SECONOARY  ENTRY  POINT  FOR  I  MATIN 
CAN  BE  CALLED  By: 


PRTA3LE 


matin  entry  class:  main  segment:  <pRM2> 

- DESc  *~" ROUTINE  To”  INPUT  MATEPIAL  PROPERTIES  FROM 

length:  SOI  (.anguage:  FTn 

- seconoary  entry  points: 

MATINS 

-  -  CAN  BE  CALLED  BY : 

PRT  able 

- - can" call'  the- following: . 

CNTA8L  MATOEF  PUTEDT  IDISER  ICCHR 
- JBEAUT  ICRACK 


(TYPE-IN) 


-  mBEAo  "  entry  CLASS:  MAIN  SEGMENT:  <OBO) 

DP  SC :  MAKE  A  BEAD  AOORESS  FROM  ID  ARRAY 

- LENGTH! - fl - LANGUAGE:  FTN 

has  no  secondary  entry  points 

-  CAN  BE  CALLED  BY: 

MOISHK  BOSTR  ASU84  A SUBS  ASUBS 

-  EMEP.GE - ORWATT  3ELPIC  RETAIN  LFNODE 

NOOFEL  ERO  EACTPN  EADOWN  EQPEN 

- TA3PRC - SSOFE  . 

THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 


MCT.RM  ENTRY  CLASS:  MAIN  SEGMENT:  (SI) 

-  OESC:  (NOT  AVAIL A3LE) 

LENGTH)  227  LANGUAGE:  COMPASS 

- has'no  "SEconoarvp'entry  points 

CAN  3E  CALLEO  BYt 

- - - -  CLSF.RM  0  PEN. RM  CLSF.RM 

THIS  PROGRAM  DOfS  NOT  INVOKE  ANY  OTHER  FROGRAMS 

MENNIT  ENTRY  CLASS:  MAIN  SEGMFNT:  (M32) 

- DCSC  :-ST ART- GL02ACAND'  EXECUTIVE  MENUS 

length:  273  LANGUAGE:  FTN 

- HAS  no  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  BY: 

DRIVER 

CAN  CALL  THE  FOLLOWING: 

- STARTK - GTASID  IGPCKM  GISUBF  GCHIGH 

GCWIDE  GITFM  GICAT  GIDAE  GUTEXT 
- - -  GUSETP  IGLNK 


META7Z  ENTRY  CLASS:  MAIN'  SEGMENT:  (M810) 

OESC I  4060/IG5  -  LOW-LEVEL  DRIVER  WHICH  FORMATS  ALL  PLOT  COMMANDS 

- LENGTH! - 545 - LANGUAGE:  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 

-  ' CAN  BE  CALLED  3Y I 

CNTOR  QIKGRF  LEGNOG  LINESG  POINTG 

- - MLTPLG  SEGMTG 

CAN  CALL  THE  FOLLOWING: 

- - TCK3YT - LIN7Z - SCALZZ  GUTEXT  MEXTN 

MITEM  UTORAS  GETSIZ 

MEXTN  ENTRY  CLASS!  MAIN  SEGMENT:  (G14) 

-  OESC:  GRAPHICS  CHECKING  -  EXTENDS  AN  EXISTING  ITEM 
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LfNGTHt  ?0  LANGUAGF:  FTN 

HA',  Nj  CrCON0A-iV  '  N  T  R  Y  POINTS 
CAN  i:  CALl!  D  iv  t 

I C  A  1 v T  M  E  T  A  ?  Z  "  IORWAT  I  DRW 

CAN  CALL  THE  POLL  ow ing« 

GIXTNO 

ENTRY  Class:  main  segment:  (G14) 

_ 0 E S L :  WAPMiCC  CHECKING  -  GENERATE  AN  ITEM 

LEn-Thi  lo  language:  f tn 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  HE  CALlEC  iV  ! 

1CK  )VT  M f  TA LI  IORW 
Can  C « l l  The  following: 

_ GIT!"  _ _ 

E  N 1  a  V  CLASS:  MAIN  segment:  (M812Q) 

oesc  <  (not  Available) 

length:  64  language:  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  St  called  iy: 

CrvIDs  L  AOtLG 

can  call  the  following: 

META?? 

ENTRY  CLASS:  MAIN  SEGMENT!  ( GL  3) 

OLSC  :  MOO  PICT D-.E  -  SHRINK  ALL  ELEMENTS  ON  SCREEN 
“length:  LANGUAGE:  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 
C«N  HE  CALLED  SYs 
GLTA3LE  MO?SRS 

"CAN  CALL  THE  FOuLOWING? 

_ M_OU_S_MN _ OrWA£I _ 

ENTRY  CLASS:  MAIN  SEGMENT:  (GL0» 

"“OESC:  MOD  PICTURE  -  ORAW  3C  AYES 
length:  130  language:  ftn 

SECONDARY  ENTRY  POINTS: 

MOAX.'JF  MOA.-ET 

“ThTS"  ENTRY-!  S''  NOT  INVOKED  DY  ANY  OTHER  FROGRAMS 

CAN  CwLL  THE  following: 

MOL  Ay  ARROW  GITEM  GIDELT  GUSETP 
utoras 

entry  class:  secondary  segment:  (glo) 

‘“"BESC  «"  REDRA  W“'A  YrS . 

SECONDARY  ENTRY  POINT  for  :  MOA  yes 
CAN  -3E  CAlLED  3Y : 

MOkORH 

ENTRY  CLASS:  SECONDARY  SEGMENT:  (GLO) 

DCS"  (NOT  ~AV  AILARLE) -  -  -  .  • 

secondary  entpy  ">oint  for  :  moaxcs 

CAN  OF  CALLED  3Y: 

GLTA3LE 


moboth  entry  class i  main  segmenti  c hs > 

OESC«  NOD  PICTURE  -  RESET  ZOOM  AND  VIRTUAL  WINDOW  FOR  A I  DA  E  HA 
LENGTHt  ?0  L  AN  GU  AGE  I  FTN 

HAS  NCTSFCOnDARY'ENTRY  POINTS  ‘  ' 

CAN  3E  CALLED  3Y« 

H0  ZSRS 

CAN  CALL  THE  FOLLOWING! 

SET  WZ  ERASER 

"MOCYC  ENTRY^CCASS!- SECONDARY .  SEGMENT!  <M33> 

OESCI  MOD  PICTURE  -  SET  POLAR  OR  CYLINDRICAL  ENTRY  MOOE  FOR  PLOT  LIMITS 
SECONDARY  ENTRY  POINT  FOR  I  MOREC 
CAN  BE  CALlEO  3YI 
DETA3LE  GlTABLE 

— aorrR'W  rNTR'rccTss'fMAiN - segment!  (gl  3) 

OE SC !  MOO  PICTURE  -  REDRAW  ALL  ACTIVELY  DISPLAYED  BEADS  IN  NEWLY  SPECIF 
__  LENGTH!  122  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
-  —-CAN  BE  CALLEO  BY!  — 

GLT  ABLE 

CAN’  CALL'  THE  FOLLOWING!  '  . . .  ' 

MORORW  PUTEOT  IOISER  SCALST  CNVTOC 
'  '  ICHKtD  "  COMPAC  - 

fTO  FILL"  ENTRY  CLASS!'  MAIN - -  "SEGMENT!  ( GL  3) 

_ OESC«  MOD_PICTU?’.E  -  RESCALE  TO  CURRENT  MINS  AND  MAXES 

LENGTH! "  '  41  . "LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
~  'CAN  BE  CALLED  BY! 

GLT  ABLE 

"'C«N  CALL  THE  FOLLOWING! 


MORORW  SCALST 


MOFRE 

ENTRY  CLASS!  MAIN 

SEGMENTI 

C  GL  3) 

OE3C !  MOD  PICTURE 
LENGTH:  21 

-  GENERATE  FREE 
LANGUAGE!  FTN 

COPY  OF  WORKING  DAE 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  .1YI 

GLTADLE - - 

CAN  CALL  THE  FOLLOWING! 

GISHOW 

MOFRZ  ENTRY  CLASS!  MAIN  “  SEGMENT!  CGL3) 

OE  SC  !  MOD  PICTURE  -  GENERATE  FROZEN  COPY  OF  WORKING  DAE 
LENGTH:'  141  ■  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

Can  be  called  by! 

GLT ABLE 

CAN  CALL  Thp  FOLLOWING! 

GISUjF  IOISER  OELSE  GISHOW  GIDUP 

TCAN  lEBDAD  IDGORT  " 

MOISHK  ENTRY  CLASS!  HA  IN  SEGMENT:  (GL3) 

OESCI  MOD  PICTURE  -  SHRINK  ALL  PICKED  ELEMENTS  CN  SCREEN 
LENGTH!  2B  LANGUAGE!  FTN 


HAS  NO  3FC0N0ARY  ENTRY  POINTS 
CAN  BE  CALLED  3YI 
GL7A3LE 

ZZn'ChLL  THE  FOLLOWING! 

DKWONE  IL9TYP  M8EAD 

ENTRY  CLASSi  MAIN  SEGMENT!  (GLO) 

OESCi  MOO  PICTURE  -  LA8EL  3C  AXES  WITH  CHARACTERS  X,  Y,  AND  2 
LENGTH!  83  LANGUAGE!  FTN 

TfAS~NO”  SECOND  ARE'  ENTRY  POINTS 
CAN  QE  CALLEO  BY! 

MOAXGS 

can  call  THE  FOLLOWING! 

GUTEXT  UTORAT  GETSIZ 

TNTRV'Ct'S  GST  MAIN - SFGMENT!  (M33) 

OESCI  DISPLAY  SCALE  LIMITS  IN  USER  COORDINATE  TERMS 
“LENGTH !  13a  LANGUAGE!  FTN 

SECONDARY  ENTRY  POINTS! 

MO  PU 

CAN  BE  CALLEO  3YI 
MOREC 

CAN  CALL  THE  FOLLOWING! 

~  PUTEDT  PLINIT  CNVTOU  IDEAUT 

ENTRY  CLASS!  SECONDARY  SEGMENT  I  CM33> 

JOESCJ  UN  USE  0 

SECONOARY'TLnTRY  POINT  FOR  1  HOPUT  * . . 

CAN  BE  CALLEO  HY! 

OETA3LE 

ENTRY  CLASS!  MAIN  SEGMENT!  (GLO) 

OESCI  MOO  PICTURE  -  RECENTEP.  DISPLAY  FILE  AROUND  CROSSHAIRS 
LENGTH! "  34’"  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  3Y« 

GLT  ABLE 

CAN  CALL  THE  FOLLOWING! 

GIFETS  SETwZ  GITRAK  ERASEM 

ENTRY  CLASS!  MAIN  SEGMENT!  (GLO) 

OESCI  MOO  PICTURE  -  REDRAW  ACTIVE  BEADS 
LENGTH!  20  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BF  CALLEO  9YI 

— front vu  sidevu — topvu_‘  mofill  '  moorw 

SVIEWP  SROTET 

can  CALL  THE  FOLLOWING! 

MOAXFT  ekasen  orwact 

ENTRY  CLASSI  MAIN  SEGMENT!  (M33) 

UTSC  rHOD"'RTCTU:E'-~SET  RFCT ANGULAR  ENTRY  MODE  FOR  PLOT  LIMITS 
LENGTH!  26  LANGUAGE!  FTN 

SECONDARY  ENTRY  POINTS! 

MOCYL  MOSPH 

CAN  BE  CALLEO  BY i  "  ' 


P 


OETABLE  GLTauLE 
“  CAN  call  the/  FOLLOWING* 

_ MOPUT _ _ 

MORGUE.  ENTRY  CLASS  I  SECONDARY  SEGMENT* 

~  OF  SC l  (NOT  AVAILABLE) 

SECONOARY  entry  point  FOR  I  S YS  =  1ST 
CAN  BE  CALLED  BY* 

SYS=AIO 


NOSPH 


HOSPLT 


MOSSHK 


MOUSHK 


MOVE.RM 


ENTRY  CLASS*  MAIN  SEGMENT*  ( GL  3) 

OF  SC  *  MOO  PICTURE  -  DEACTIVATE  SPLIT-SCREEN  MOOE 
LENGTH*  33  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  Af  CALLED  BY* 

GL’TASLE  ~  MOZSRS  . 

can  call  THE  FOLLOWING* 

SET  W  Z  GI3ELT  ERASEM 

ENTRY  CLASS*  SECONDARY  SEGMENT*  CM33) 

DESCl  MOD  PICTURE  -  SET  SPHERICAL  COORDINATES  ENTRY  MODE  FOR  PLOT  LIMIT: 
“SECONDARY' ENTRY-  POINT  FOR  *  MOREC 
CAN  BE  CALLEO  3YS 

PETA3LE  G  LT  ABLE  ’  "  ’ 

ENTRY  CLASS!  MAIN  SEGMENT*  CGL3) 

0 E S C  *  MOD  PICTURE  -  DECREASE  THE  ZOOM  OF  ITEM  TO  FIT  NEXT  SPLIT  ON  SCREt 
LENGTH*  •  'US  LANGUAGE*  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  3Y! 

GLTA3LE 

CAN  CALL  THE  FOLLOWING* 

SET  WZ  GIOAE  ER A  SE  M 

ENTRY  CLASS*  MAIN  SEGMENT*  (GL3) 

OESC  *  MOO  PICTURE  -  SET  SHRINK  MOOE 
LENGTH*  13  LANGUAGE*  FTN 

SECONDARY  ENTRY  POINTS* 

MOUSHK 

TAN  ST  CAIXFD’ "3YT - - 

gltajle 

THIS  PROGRAM  DOFS  NOT  INVOKE  ANY  OTHER  FROGRAMS 

ENTRY  CLASS*  SECONDARY  SEGMENT*  t  GL  3) 

OESC*  MOD  PICTURE  -  TERMINATE  SHRINK  MODE 
’SECONDARY-ENTRY  POINT  FOR  »  MOSSHK 
CAN  8E  CALLEO  3y* 

GLTAOLE  MOA5HK 

ENTRY  CLASS*  MAIN  SEGMENT*  (SO) 

OESC*  (NOT  AVAILABLE) 

’TEN  GTH-*  6'.  LANGUAGE*  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y! 

PUT • GQ  F  SU .30 

THIS  PROGRAM  COES  NOT  INVOKE  ANY  OTHER  PROGRAMS 
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H02CRS  ENTRY  'LASS:  main  SEGMENT:  (GLQ> 

OF  SC :  NOD  PICTURE  -  ZOOM  AROUND  CROSSHAIRS 

- - LFMGTHY  '  '161  •“  language:  ptn 

HAS  NO  SECONOARV  ENTRY  POINTS 

- - -  CAN  BE  CALLED  DY : 

GL table 

-  CAn  CALl  ThF  pollovIInG* 

GIFETS  SETwZ  GIALRM  GCDRAH  GITEM 
- GTOELT  GITfaK  GUTEXT  GUSETP  ERASEM 

~hozmyn — “  entry  Class:  secondary  segment:  (glo> 

DE  SC «  DECREASE  ZOOM  LEVEL  50  PER  CENT 

- -  SECONDARY  ENTRY  POINT  FOR  :  MOZPLS 

CAN  BE  CALLEO  3YJ 

- GUTA'DUE - “ 

MOZPLS  ■  Entry  CLASS:  main  SEGMENT:  (GLO) 

OESC :  mod  PICTURE  -  ZOOM  ONE  LEVEL  MORE  (ENLARGE) 
.  LENGTH  t  ~  24  LANGUAGE*  ftn 

SECONCARY  ENTRT  POINTS* 

rozmin"-  _  '  *  '  ■ 

CAN  BE  CALLED  3Y: 

- GLTA3LE  . 

CAN  CALL  THE  FOLLOWING: 

- SETWZ  "  ERASEM  “  “  ' 

-ttotsrs - rNTTmrcxss'rwnr - segment:'  (gloj 

OESC:  MOO  PICTURE  -  RESTORE  ORIGINAL  PICTURE 

- length:  is . .  language:  etn 

HAS  NC  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  5Y: 

GLTAGLE 

can  call  The  Following': 

MOSOS  MOASHK  MOBOTH 


MSG=  ENTRY  CLASS?  SECONDARY  SEGMENT:  (SO) 

OESC:  (NOT  AVAILABLE) 

SECONDARY  ENTRY  POINT  FOR  :  SYS .RM 

- - CWSrTLAIUECT'DVr - -  •  -  " 

compio  aa.io.  forsys=  put. so  err.rh 

Y I E  L  0  =  PERMFIL  REOUEST 

“KXYI - ENTRY  CLASS:  MAIN -  SEGMENT:  (DE  2) 

oesc «  initialize  moving  a  node  by  crosshairs 

LENGTH! - 10% - LANGUAGE:  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
C4N  ^  CALLED  3YI 
OET  ABLE 

~  -  -  CAN  CALL  THE  FOLLOWING: 

MXYP  GETCEN  GIALRM  GCDRAH  GITEM 

- GTDErT" - GTTR-AIC - "GUTEXT  GUSETP  UTORAS 

~ HXYP  ENTRY  CLASS:  MAIN  SEGMENT:  (DE  2) 

oesc:  PROCESS  the  crosshair  move  of  node 
length:  T25  LANGUAGE:  FTN 


t 


I 

< 
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SECONDARY  ENTRY  POINTS* 

MX  Y  TP 

CAN  BE  CALLED  BY  I 

- DETAuLE  ~  MXY1 - 

CAN  CALL  THE  FOLLOWING* 


EUPPNT 

CORSHF 

RASTOU 

GIFETS 

ORWONE 

EQUFUP 

TRKOFF 

GOTOER. 

DBOLF 

IDBRIT 

I08UPN 

ID90NN 

IDbOAD 

IDBOLF 

IDBUPP 

iobonp 


ENTRY  CLASS*  SECONDARY  SEGMENT*  (DE2) 

DESC  *  (NOT  AVAILABLE) 

SECONDARY  ENTRY  POINT  FOR  *  MXYP 
CAN'  8E  CALLEO  3YI 

EMOVE _ 

ENTRY  CLASS*  MAIN  SEGMENT*  (PRM1) 

DESC (“INITIALIZE  MPDB  PROCESSING 
LENGTH*  121  LANGUAGE*  FTN 

HAS  NO  'SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY* 

- PRTA3TTE - 

CAN  CALL  THE  FOLLOWING* 

—  INTSUBM  OEINIT1  IDISER  PERMFIL  IDBLFT 

_ IOBNAM _ D  MI  NIT  RETURN 

ent ry  Class*  main  segment*  »sd> 

~DESC  *  CONSTRUCT  'ATTRIBUTE  NAME  FROM  NUMEER 
LENGTH*  35  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY* 

IEXOEC  GLST03  IDEDEC  SELATT  PUTATT 

IORWAT 

"CAN  C  ALL  “THE  "  FOLLOHIN  G  * - - 

_  IBEAUT  _ 

ENTRY  CLASS*  SECONDARY  SEGMENT*  (DB2) 

DESC*  GET  NEXT  BE  AO 

SECONDARY  ENTRY  POINT  FOR  *  NEXTIN 

XAN  BEXAELEO  3Y5T - - 

PRINCP  EQSTR  ALLON  ASERCH  IENEXT 

ENTRY  CLASS*  MAIN  SEGMENT*  (OB2) 

DESC*  INITIALIZE  NEXT  BEAD  FOR  LOOKING  ALL  PIECES  OF  DATA  BASE 
LENGTH*  133  LANGUAGE*  FTN 

XECOND ARY~ENTRY  POINTS*  . 

NExTB 

CAN  BE  CALLEO  3YI 

PRINCP  EOSTR  ALLON  ASERCH  IENEXT 

CAN  CALL  THE  FOLLOWING* 

_ IDBRIT  IliBDNN  _ IDBOLF  IDBORT  IOBDNP 

ENTRY  CLASS*  SECONDARY  SEGMENT*  (MO) 

DESC*  SET  NODES  AS  THE  LEVEL  TO  WORK  ON 
SECONDARY  ENTRY  POINT  FOR  »  STRACT 
CAN  BE  CALLEO  BY* 


DETA8LE  PRTA9LE 

NOOAEL  ENTRY  CLASS!  MAIN  SEGMENT!  <DE3> 

- DESC«""ORAW  All  NOOES'OWNED  dy  all  elements  on  screen 

LENGTH!  59  LANGUAGE!  FTN 

- -  HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  9Y1 
OF  T  A  ILL 

CAN  CALL  THE  FOLLOWING! 

- 10.RW  ID3DNN  IDBORT  IDBONP  ACTIVA 

NODE -  ENTRY  CLASS  i  MAIN  SEGMENT!  fPR2> 

OESC  !  (NOT  AVAILABLE) 

- - - —  LENGTH!  3  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

- CAN"9r~'CACLTCr'3Y'! . . .  . .  . 

PRT ABLE 

- THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  FROGRAmS 

— tTOOFET - TNTRY  CLASS!  main  SEGMENT!  CDE3) 

OESC!  DRAW  ALL  NODES  FOR  EACH  ELEMENT  PICKED  BY  THE  USER 
LENGTH'!  '  '<«<♦  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

- _____  CAN  gE  c4LLEn  3 V" f 

DETABLE 

- CAN  CALL  THE  FOLLOWING! 

_ I  DRW _ I_C30NN _ It)  BON  P  MBEAD  ACTIVA 

NOOON  ENTRY  CLASS!  MAIN  SEGMENT!  (DE3) 

-  'OESC!  CHECK  IE  ANY  NODES  ARE  ACTIVE  TO  BE  CONNECTED 

LENGTH!  12  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  9Y! 

OET ABLE'  '  ' 

CAN  CALL  THE  FOLLOWING! 

-  __  _  r0ISER 

NUM9RG  Entry  ClASS!  MAIN"  SEGMENT!  <M810> 

OESC:  (NOT  AVAILABLE) 

- TENGTHT  3 5 - LANGUAGE!  FTN  " 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

LABElG  SCAN 
CAN  CALC  THE  FOLLOWING! 

_ LEGN3G  I  BEAUT 

NUMFNM  ENTRY  CLASS!  MAIN  SEGMENT!  (OBOI 

OESC!  GENERATE  ATTRIBUTE  NUMBER  FROM  NAME 
LENGTH!  107  LANGUAGE!  FTN 
_  HAS  fJ0  src0NDARV  ENTRY  POINTS 
CAN  3E  CALLED  9Yi 

- TFATT - ISACT - 

THIS  PROGRAM  UOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 


OBJCTG  ENTRY  CLASS!  MAIN  SEGMENT!  (M6131) 

DESCI  SET  OBJECT  SPACE  FOR  X-Y  PLOT 
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LENGTH!  211  LANGUAGE!  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

CNTOR  '  SETUPG"  ~  '  *""  .  ' 

CAN  CALL  THE  FOLLOWING! 

—  ALoG1(u 

ONPEN S  Entry  CLASS  I  SECONDARY  SEGMENT!  ( G 1 2) 

OESC !  TURN  all  items  of  type  yiactyp*  on  as  string  picks 
Secondary  entry  point  for  t  onpen 
can  BE  CALLED  BY! 

tabpen  "  . . .  . ' 

ONPEnE  ENTRY  ClASS!  SECONDARY  SEGMENT!  (G12! 

OESC!  TURN  ONLY  ELEMENTS  ON  AS  STRING  PICK 
SECONDARY "ENTRY  POINT  FOR  l  ONPEN 
CAN  BE  CALLED  3Y 1 

_  DETABLE  - - 

ON PENN  ENTRY  CLASS  1“  SECONDARY  SEGMENT!  (G12) 

OESC!  TURN  ONLY  NODES  ON  AS  STRING  PICK 
SECONDARY-ENTRY  POINT  FOR  1  ONPEN 
CAN  BE  CALLEO  BY  * 

.  - - OETABLE  INTSUB  . ' 

ONPENS  ENTRY  CLASS  I  SECONDARY  '  SEGMENT!  tGl2> 

_ OESC !  TURN  ALL  ITEMS  OF  ALL  TYPES  ON  AS  STRING  PICKS 

SECONDARY  EnTRY'  POINT  FOR  l  ONPEN 
CAN  8t  CAuLEO  BY ■ 

GLTA3LE  -  " 

“ONPEN  ENTRY  CLASS!  MAIN - SEGMENT!  (G12) 

OESC«  ACTIVATE  ITEMS  IN  ACTIVE  TYPE  TO  LIGHT -PEN 
TENGTHi  i 0  0  LANGUAGE!  FTN 
SECONDARY  ENTRY  POINTS! 

.  "  ONPENE  ONPENN  ONPENA  ONPENS 

CAN  BE  CALLEO  BY! 

OETABLE  PRTA3LE  SOSTR  EON PD  EONPEN 

RET  A  IS 

tJAir  CALL" THr“F01t0WING! - - 

IOISER  SETCAT 

OPEN.R  M  ENTRY  CLASS!  MAIN  SEGMENT!  (SO) 

'  "  ■'  OESC!  (NOT  AVAILABLE)" 

LENGTH!  237  LANGUAGE!  COMPASS 

“  HAS"  NO"  SECONDARY" ENTRY  POINTS 

CAN  BE  CALLEO  BY! 

FORSYS=  Y IEL0=  " . * 

CAN  CALL  THE  FOLLOWING! 

OSU3.RM  ERR. RM  MCT.RM 

~0PENVS"Q  ENTRY"  CLASS  T~ MAIN"- - SEGMENT!  (SO) 

OESC«  (NOT  AVAILABLE) 

LENGTH!  262  LANGUAGE)  COMPASS 

SECONDARY  ENTRY  POINTS) 

"  OPXX.SQ 
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CAN  BE  CALLED  BY  « 

FOR  3  r  S  = 

CAN  CALL  THE  FOLLOWING* 

- 0PE>:.S.T  EER.RM  RSPT.SQ  kM.CIO  chwr.sq 

^OPEX.SC  ENTRY  CLASS*  MAIN  SEGMENT*  «S0) 

□  ESC  t  (NOT  AVAILABLE! 

- -  LENGTH!  i  4  LANGUAGE*  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 

- CAN  '  BE  CALLED  BY i 

OPEN. SO 

_____ - CAN  CALL  thc  fr0LL:)wiNG* 

OPXX.SO  EPR.RM  RSPT.SO  RM.CIO 


OPXX.SQ  ENTRY  CLASS!  SECONDARY  SEGMENT*  C  S  0  > 

- 'OESC‘t—(N0T~AVATL  ABLE)  ' 

SECOND  A  <v  ENTRY  POINT  FOR  *  OPEN. SO 

-  Can  3t:  called  byi 

opex.sq 

osub.rm  entry  Class:  main  segment*  tso> 

-  OcSC*  (NOT  AVAILABLE! 

LENGTH!  6  6  LANGUAGE*  C CM  PASS 

—  - HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  0t  CALLED  3V1 

-  OPEN.RM 

CAN  CALL  THE  FOLLOWING* 

CrRVRm 

~0l)T9UE  ENTRY  CLASS!  MAIN  SEGMENT*  <0801 

OESC*  DATA  HANDLER  FOR  LOW  LEVEL  OUTPUT  ROUTINE 
-  LENGTH*  17  language*  ftn 

HAS  NO  SECONDARY  ENTRY  POINTS 
Can  be” Called  by : 

OMWRITE  DMELSH  OMiNIT 

- —THIS  PROGRAM  OOFS  NOT  INVOKE  ANY  OTHER  FROGRAMS 

~~PACER -  ENTRY  CLASS*  MAIN  SEGMENT*  (M30) 

OESC*  WAIT  FOR  USER  TO  PICK  ERASE  OR  REDRAW 

—  - CTNGT'hT  66  LANGUAGE  *  ETN 

HAS  NO  SECONDARY  ENTRY  POINTS 
•  CAN  3t  CALLED  BY! 

DRIVER  FILATT  TYPNAM  PUTEDT  SELATT 

—  - -  CAN  cflLL  TH£  FOLLOWING* 

ERASER  ERA5EN  IPICK  GIALRM  GCORAW 


POUMP  ENTRY  CLASS*  MAIN  SEGMENT*  IDBO) 

-  OESC*  DATA  HANDLER  ERROR  DUMP 

LENGTH!  24  LANGUAGE*  FTN 

- -  ‘  HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  3YI 

- CMSTGT -  - 

CAN  CALL  THE  FOLLOWING* 

GELUSH  PUTLIN 

PERMFIL  ENTRY  CLASS*  MAIN  SEGMENT*  *S1» 
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G:  '  permanent  FILE  FUNCTIONS 

.1  :  •  language  i  compass 

•:0  „f  COLO ARY  ENTRY  points 
C.N  -ALLro  ?vt 

START*  rx STAR  MYiNIT  IPFUT 
CAN  CALL  T  H  r  FOLLOWING) 

SYS-  M$G= 

PLlNir  CM  ay  CLASS:  MAIN  S  E  GHENT  I  (M33) 

-  DLC'.':  SET  UP  INITIAL'  VOLUME  FOR  ELEMENTS  SEARCHEQ 

LF'INHI  IT  language:  FTN 

‘•as  -i-  SECONDARY  ENTRY  POINTS 
GAL  :L  S  ALLf  0  TV! 

r  t  T  A  l  r  P-CNPEN  MOPUT 

_  T  - 1 S  PM  "GRAN  l'OFS  NOT  INVOKE  ANY  OTHER  FROGRAMS 

POINTG  t.L'T-.r  SLAGS  t  main  SEGMENT*  <H8U> 

Oi  i:  SplAY  a  OTA  POINT  ON  an  x-y  plot 
L  FN..TH1  LANGUAGE:  FTN 

ha;  no  secondary  entry  points 

CAN  or.  CALLED  BY  i 
C  I  k  G  a  E 

CAN  V«U  The  following: 

- •  •  MET  At Z 

PONPEN  ENT-Y  Class:  MMN  SEGMENT:  (DEI) 

DAS'.:  s:  T  up  -vLCTANGLE  TO  genfrate  GOWN -POINTERS 

llvCn . 157  LANGUAGE:  FTN 

HAS  -0  GrCCti  0  A  RY  entry  points 

' .  C tv  Ol  lALLEO  OY! 

? r  T  -'  'IE 

G  A •  '  A u :.  THE  FOLLOWING: 

•-  JVG  CORGMF  RASTOU  GIFETS  PLINIT 

- 0  - GITEM - GIOELT  GITRAK  GUTEXT 

.I.-,::  t  •" 


PPINIT 


PPTA3LE 


NT""  G.A-G3  :  MAIN  SEGMENT:  (PEI) 

DC  DC :  L'.O*'  FOR  ELEMENTS  LYING  WITHIN  SQUARE  OR  VOLUME 
L'nGTh:  101  LANGUAGE:  ftn 

'HAS  NO 'SECONDARY 'ENTRY  POINTS 
CAN  of  CAlLFO  3  y  i 
PON'PLn  PTVi’E 
can  CALL  The  FOLLOWING: 

GET  COR  I03FIT  IOSDNN  IDBDNP  DBUPT 
DBONT 


SEGMENT:  ( M3  2) 


ENTRY  CLASS:  MAIN  SEGMEN 

OESC i  (NOT  AVAIlAOlE) 

length:  IF  language:  FTN 

HAG  NO  SECONDARY  ENTRY  POINTS 

can  he  called  by: 

- FXTABLF  - -  - 

can  call  the  following: 

STARTm  0FINIT1 


ENTRY  CLASS:  MAIN 


SEGMENT!  (DRIVE) 
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1  J  ■•UmfWnmW 


OEST!  (NOT  A  V  A  I  l  A  3L  E  ) 

LENGTH*  ?3  LANGUAGE!  COMPASS 

HAS  NO  GFCONOATy  ENTRY  POINTS 
Can  re  Dal  LEO  Ty  : 

ST  ART  M  GLINIT 
CAN  CALL  THE  FOLLOWING! 

SHITCHS  If’POEC  PRINCP  EQSTR  EXINIT 

PRINCP  ENTRY  GLASS:  MAIN  SEGMENT:  <PP> 

"  ’  "  OESC  :  C  A  l  C. Ul  A  Tr  PRINCIPAL  STRESSES 

length:  iz?  language:  ftn 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  Hf  CALICO  (Yt 
PET  A  JLC 

CAN  CALL  THE  FOLLOWING: 

PRInGT--- ELEACT'  ISACT  DBATT  NEXTIN 

Nf  XT  !  08CHA 


PRINC3 _  ENTRY  CLASS:  MAIN  SEGMENT:  ( PP > 

~  DESC  t  CALCULATE  PRINCIPAL  VALUES  FROM  COMPONENTS 
length:  isg  language:  ftn 

HAS  NC  SECONDARY  "ENTRY  POINTS 
CAN  BE  CALLED  BY: 

.  p^IMCp 

CAN  CALL  THE  FOLLOWING: 

-  pRooT 

PRInTT  rNTRY''CLASST"KAlN  SEGMENT:  (M3?) 

OESC:  INITIALIZE  PRE-PROCESSOR  MENU 
length:  16  language:  FTN 

_  _  HAS  NO  SECONDARY  ENTRY  POINTS 

Can  Oh  GALLED  3 y i 

_ EXTA3LE 

CAN  CALL  THE  FOLLOWING*  . ‘  ' 

_  STARTM  OtINITl 

PROCCHR  ENTRY  Cl  ASS I  MAIN  SEGME’T :  (DE42) 

Of  SC :  X-Y  PLOTS  -  PROCESS  PLOT  CHARACTER  TYPE-IN 
LfNGTHi  l?  LANGUAGFI  FTN 

'HAS  NO'  SECONDARY 'ENTRY  POINTS 
CAN  B£  CALLED  BY: 

_  -  OETA  -3L  E 

THIS  PROGRAM  U OES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

proctit  entry  Class:  main  segment:  (dead 

'JCSC*  'X-V  PLOTS  -  PROCESS  TITLE  TYPE-IN 
LENGTH!  ia  language:  ftn 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  UE  I A  L  L  E  0  3YJ 
GET  ABLE 

_ this  progra^_coes  not  invoke  any  other  programs 

PROCXA  ENTRY  Class:  MAIN  SEGMFNT:  COE40) 

Oh  SC  I  MOO  PICTURE  -  PROCESS  X-AXIS  ATTRIBUTE 
length:  5?Z  LANGUAGE:  FTN 

SECONDARY  ENTRY  POINTS: 
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RSCXY 


TA8RDR 


PROCVA  REPXY 

CAN  BE  4  ALL  f  0  BY  * 

OET  ABLE  TA3IN0 
CAn  CALL  THE  FOLLOWING* 

SORTXY  GETDAT  CLRPIC  ACTATT  GIKGRF 

SET  SHG  TITLEG  SETUPG  GRIOG  LABELG 

SUB JE  G  GIDELT  IOISER  ICCHR 

entry  class«  secondary  segment*  <de40> 

OESC*  MOD  PICTURE  -  PROCESS  Y-AXIS  ATTRIBUTE 
SECONDARY  ENTRY  POINT  FOR  I  PROCXA 
CAN  8E  CALLED  BY  * 

DETABLE  TAQINO 

ENTRY  CLASS J  MAIN  SEGMENT*  <M33> 

'0  ESC  {“PROCESS  REPEAT '"FACTOR 
LENGTH!  42  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY! 

DETABLE 

CAN  CALL  THE  FOLLOWING* 

PUTEOT - IDISER . ICHKED  COMPAC 

ENTRY  CLASS*  MAIN  SEGMENT*  (PP) 

DESC  *  FIND  ROOTS  OF  REAL  POLYNOMIAL 

LENGTH*  BOO  LANGUAGE*  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 

"CAn" BE" CALLED '3V  *  . ~ 

PRINC3 

CAN  CALL  THE  FOLLOWING* 

SORT. 

ENTRY  CLASS*  MAIN  SEGMENT*  (ORIVE) 

DESC*“PRE-PROCESSOR  MENU  SUBROUTINE  SWITCH  TABLE 

LENGTH*  123  LANGUAGE*  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY* 

STARTM  GLINIT 

CAN  CALL  THE  FOLLOWING* 

SWITCHS  IPRCEC "  DRAWER  NODE  GRID 

CHNGP1  CHNGP2  BGSTR  CNCTBQ  FIXDAT 

SETLN  SETNO  CLROUT  MYINIT  ASU34 

ASUBS  ASU87  ASU37S  DISPLB  ELNAM 

GETRAG  GETFAG1  INTSUB  INTSUBS  INTSUBS 

LI  BIN  MATIN  MATINS  LIBINS  LIBINSA 

CLRLIG - EODEN - ELEACT  ~  NODACT  PUTNAM 

EXINIT  ONPEN 


ENTRY  CLASS*  MAIN  SEGMENT*  (DEI) 

DESC*  PROCESS  TYPE-IN  POINTS,  AREA,  OR  VOLUME 
LENGTH*  100  LANGUAGE*  FTN 

■has"no-sedonoary-entry  POINTS 

CAN  BE  CALLEO  BY* 

DET  ABLE 

CAN  CALL  THE  FOLLOWING* 

PORG  PUTEOT  IOISER  CNVTOC  ICHKED 


COMPAC 


PUTATT  CNTvy  CLASS!  MA T  N  SEGMENT!  <M33> 

- DtSCs 'TI-PLAV  i " T  GROUP  OF  ATTRIBUTES  ACTIVE  OM  THIS  LEVEL 

LENGTH  l‘i<>  language  «  FTN 

--  -  SECONDARY  entry  POINTS* 

put  ;t 

-  CAN  -it  CALL  F  0  BY! 

OF  TABLE  E  ATE 

fc'AN  CALL  THE  FOLLOWING* 

PUTETT  ioiser  i  a  latt  namenm  igatt 

~  ortA  tt 

~PUT  AT  Entry  ClASS i  SECONDARY  SEGMENT!  (M33) 

DFSC«  IF  MO AF  THAN  MAXSCR  ACTIVE  ATTRIBUTES,  DISPLAY  THE  NEXT  BATCH 

- ^seconeary  entry  point  for  i  putatt 

CAN  BE  called  by  I 

- -  £ATS  late  eserch  ASERCH  ssaoef 

~ PCjTEDT  entry  CLASS!  main  SEGMENT!  (M30) 

OESC1  EORMAT  TYPE-INS  FOR  USER 
_  LENGTH!  ?7  7  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
- — — - CAN  BE  CALLED  BY  s 


DRIVER 

F ILNAM 

MODRW 

SVIEW 

SVIEWP 

-  SROTET 

5ROTST 

CHNGPi 

GETRAG 

MATIN 

LIBTNS 

I  f C  PRC 

ETYPSV 

C NT PRD 

RNGDEL 

RNGDRYf 

P  TYPE 

EOnUM 

ELREPC 

ELREPP 

EMOVE 

OYlOAO 

OYSFPU 

0VS3TP 

ATT  PRC 

.  ATT  RF N 

ATT RNG 

ECREAN 

ERNOLO 

EATS 

E  AT  F 

E SEECH 

ASERCH 

SSAOFF 

CNTPRE 

- CNTITL 

ERASER 

TABPFC 

TABXYP 

TABXYM 

T  ABSCX 

T A3SCL 

T  A  COM 

PUTLST 

MO°UT 

'  "S  p  S  3  l 

PUTATT  ~ 

PR  OF  AC 

REPFA 

GTI TIE 

CAN  CALL 

THE  FOLLOWING* 

PAGER 

GISUDF 

GULIN 

GCHIGH 

GCWIOE 

GITF  M 

GIDf IT 

GUTEXT 

GUSETP 

ICCHR 

PUTLIN  ENTRY  CLASS!  SECONDARY  SEGMENT!  (SO) 

- OESCr  PUT'T'INE  Of  TEXT  TO  TERMINAL  WITHOUT  RECORD  MANAGER 

SECONDARY  ENTRY  POINT  FOR  I  GET. PUT 

- - CAN  BE  CALLED  3Vs 

GLCL  D<  GIHIST  GLLUP  GLLDN  GLSTOB 

- -  GLSTDS  GLUEEP  GLDEFS  C  NT  A  3  L  CNTOR 

CONHUL  TMESH2  HOLD  DMP  GIERR 

- POLMP  . . 

— POTLST ”  ENTRY  CLASS!  MAIN  SEGMENT!  (M31) 

OESCl  P’JT  UP  ASET  t  TYPE-IN  FOR  NODE  ANO  ELEMENT  RANGES 

- - - LENGTH!  SI  LANGUAGE!  FTN 

SECONDARY  ENT  RY  POINTS! 

- PUTLS - -  ‘  . . * 

CAN  BE  CALLED  BY  I 

— . — - -  detable 

CAN  CALL  THE  FOLLOWING! 

— “ - PUTEDT  IBEAUT 


entry  class*  secondary  segment*  fM3n 
Otsc*  RE-0 1  SPLAY  ERRONEOUS  NODE  AND  ELEMENT  TYPE-INS 
‘SECONDARY  ENTRY  POINT  EOR  *  PUTLST 
CAN  BE  CALLEO  BY* 

GETR4G  ETYPSV  RNGDEL  RNGORW  EONUM 
ERNOLO 

ENTRY  CLASS*  MAIN  SEGMENT*  (M31) 

"DESC  *'  PUT  UP “FIRST" GROUP  OF  NAMES  OF  CROSSHAIR  PICK 
LENGTH*  10S  LANGUAGE*  FTN 
SECONDARY  ENTRY  POINTS* 

PUTNM  putnmm 
CAN  BE  CALLED  3Y*  "" 

DETABLE  PRT  ABLE 

XAN— CALC  THE- FOLLOW INGf  ' 

TYPNAM  I03F.IT 

ENTRY  CLASS*  SECONDARY  SEGMENT*  (M31I 

OESC*  PUT  UP  ALL  BUT  THE  LAST  BEAD  (FOR  MERGING) 
SECONDARY  ENTRY  POINT  FOR  *  PUTNAM 
TTAN'BE  CALTEO  3Yi  '  "  ■ 

OET  ABLE 

ENTRY  CLASS*  SECONDARY  SEGMENT*  ( M 3 1) 

CESC*  PUT  UP  NEYT  GROUP  OF  NAMES  OF  CROSSHAIR  PICK 
SECONDARY  ENTRY  POINT  FOR  I  PUTNAM 
XAN~3£  CALLED  ‘  3Y* . 

ASU84  ASUDS  EMERG  EACTPN  EQPEN 

ENTRY  CLASS*  SECONDARY  SEGMENT*  C S 0 ) 

Df SC  »  (NOT  AVAILABLE) 

SECONDARY  ENT kY  POINT  FOR  *  BTRT.SQ 

"CAN”  BE~CAIX  EO"  BY i - 

FCL.C. 

ENTRY  CLASS*  MAIN  SEGMENT*  (SO) 

OESC*  (NOT  AVAILABLE) 

LENGTH!  1403  LANGUAGE*  COMPASS 

TTAS~flO~  SECOND  ARY"  ENTRY  POINTS 
CAN  BE  CALLEO  BY* 

F  0  RSYS1  . 

CAN  CALL  THE  FOLLOWING* 

- REW.SQ  WEOP.SQ  ERR. RM  RM.CIO  RM.RCLA 

RM.RCLP  CHWR.SU  CLSV.SO  MOVE. RM  WAR. SO 

- RLECURM  WN8= - MSG=  '  '*  ‘ 

ENTRY  CLASS*  MAIN  ‘  SEGMENT*  (M810) 

OESC*  (NOT  AVAILABLE) 

LENGTH*  70  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

'C‘A"N—BE— CALVE  0  "BYT . . “ . 

PROCXA 

CAN  CALL  THE  FOLLOWING! 

METAZZ  LINESG  SETSMG  POINTG 


QTITLE 


ENTRY  CLASS!  MAIN  SEGMENT*  (M33) 

OESC  *  X - Y  PLOTS  -  DISPLAY  OLD  X-  AND  Y-AXIS  ANO  GRAPH  TITLES 
LENGTH!  3a  LANGUAGE!  FTN 

HAS'  NO'SFCO’TOARV' ENTRY  POINTS 
CAN  BE  CALLED  QY i 
0FTA3LE 

CAN  CALL  THf  FOLLOWING! 

PUTE JT 

-Q^NTRy^ - TnTrY^CI'ASS  i~KATn  SEGMENT!  (SO) 

DESC1  FCL  I NI  TIlALI ZATION  ROUTINE. 

- - LENGTH!  3  LANGUAGE!  COMPASS 

SECONDARY  ENTRY  POINTS* 

Q  bN  T  A Y  • 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
- THIS" PROGRAM  DOFS 'NOT  INVOKE  ANY  OTHER  PROGRAMS 

QVNTRY .  Entry  Class,  secondary  segment*  (SO) 

OESCt  (NOT  AVAILABLE) 

- — _ —  secondary  entry  point  for  i  osntry= 

CAN  BC  CALLED  IN  * 

DRIVER 

RASTOU  “  ' — ENTRY  CLASS!  MAIN  SEGMENT*  (Ml) 

OESD*  SCALING  -  CONVERT  RASTERS  TO  USER  UNITS 

-  LENGTH!  23  LANGUAGE*  FTN 

HAS  NO  SECO HOARY  ENTRY  POINTS 
CAN- 8t' CALLEO  BY! 

FIXOAT  PONPFN  MX  Y P 

THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 
~  RCOVER  ENTRY  CLASS!  MAIN  SEGMENT!  (DRIVE) 

oesc *  Error  recovery  trap  routine 

LENGTH!"  7  2  "  LANGUAGE!  COMPASS 

SECONDARY  ENTRY  POINTS* 

MARK  EXITT 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  F30GRAMS 

-  can  call  the  following* 

EXIT  HOLD 


REACT  ENTRY  CLASS*  MAIN  SEGMENT*  (MENU 

- -  OESC*  (NOT  AVAILABLE) 

LENGTH!  IIP  LANGUAGE!  FTN 

- - - H AS  NO  SECONDARY  ENTRY  POINTS 

CAN  OE  CALLEO  B  v  * 

- EYSTAR . GLCHCK  . 

CAN  CALL  THE  FOLLOWING! 

-  GRDNIT  CBORT  IDoDLF  DBINIT 

"REAOR  ENTRY  CLASS*  MAIN  SFGMENTI  (OBO) 

OESCt  (NOT  AVAlLAjLE) 

- LENGTH  t - 'LANGUAGE!  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 
-  CAN  BE  CALLED  BY! 

OMREAO  DMINIT 
.  caN  CALL  TH[.  f-QLL  OWING, 


CPC 

REPFA  ENTRY  CLASS*  main  SEGMENT!  (M33> 

- DESCr'X-Y  PLOTS  -‘OISpLAY  REPEAT  FACTOR  for  x-y  plot  lone 

LENGTH!  23  LANGUAGE!  FTN 

HAS  NO  secondary  entry  points 

CAN  BE  CALLEO  3Yl 
DET  ABLE 

CAN  CALL  THE  FOLLOWING! 

PUTEOT"  1  BEAUT  . . ”  

REPXY  ENTRY  CLASS!  SECONOARY  SEGMENT!  <0E4Q» 

OESCI  X-Y  PLOTS  -  P.EPLOTS  X-Y  PLOT 
SECONOARY  ENTRY  POINT  FOR  I  PROCXA 
CAN  HE  CALLED  BY! 

- DETAoLE  . 

REQUEST  ENTRY  CLASS!  MAIN  '  SEGMENT!  <S1! 

OESC!  FTN -C ALLA  OLE  CQUIPMENT  REQUEST  PROCESSOR 
LENGTH!  A  23  LANGUAGE!  COMPASS 
HAS  NO  SECONOARY  ENTRY  POINTS 

- CAN  'OE'CALLEO  3Y!  '  —  ’ 

FILATT  GLCHCK  CNNEW  GINIT 

-  CAN  CALL  THE  FOLLOWING! 

SYS=  MSG  = 


RESTART  ENTRY  CLASS  l  H1IN  SEGMENT! 

"  OESCi  FlUSH  APPROPRIATE  INFO  NEEDED 

LENGTH!  34 A  LANGUAGE!  FTN 
HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLED  3V! 

EXSTAR  GLCHCK  CNTERM 

CAN  CAuL  THE  FOLLOWING! 

OHGTuO"  ~OmSET  OMGET  OBDRT 
DMFLSH 

ENTRY  CLASS!  MAIN  SEGMENT!  IDE  2) 

OESCi  DEACTIVATE  ALL  3EAOS  EXCEPT  THOSE  THAT  ARE  PICKED 
LENGTH!  5  A  LANGUAGE!  FTN 

HAS  NO' SECONDARY- ENTRY  POINTS 
CAN  BE  CALLEO  3Y 1 
DETABLE 

CAN  CALL  THE  FOLLOWING! 

DELETE  I03CRT  MBEAD 

RETAIS - ENTRY' CLASS  l~MA7N - SEGMENT!  (OE2) 

OESCi  INITIALIZE  THE  <RETAI N t  PROCESS 
LENGTH!  10  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y! 

OETA3LE 

■caw-c&tL-THF~FOLLOWINGI—  . .  ' 

ONPEN 

RETURN  ENTRY  CLASS!  MAIN  SEGMENT!  CDB1) 

DESC 1  FTN-C  ALLA3LE  FILE  RE  TURN/UNLOAO 


RETAIN 


(M5> 

TO  RESTART  APPLICATION 


IDBOLE 
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Lf'l.THl  70  LANGUAGE*  COMPASS 

MiG  NO  it' COnDAPy  ENTRY  POINTS 
CAN  -'it  GALLED  OYt 

-  START*  EXSTAR  FILATT  GLCHCK  DRAWFR 

CLROJT  C'.NEW  MYINIT  GINIT  091 NI T 

CAN  CALl.  ThF  following* 

CLSE.RM  SYS= 

REW.SQ  ENTRY  CLASS  s  MAIn  SEGMENT*  (SO) 

Dt  SGI  '(NOT  AvAIlAOlET 

LENGTH*  33  LANGUAGE*  COMPASS 

-  HAS  NO  SECONCARV  £nTRy  POINTS 

CAN  Rf  CALLEO  3Y* 

-  PUT. SO 

CAN  CALL  THE  FOLLOWING* 

- FRR.kM  RSPT.SO  RM.CIO 

reilEQ  entry  Class*  main  '  segment*  <obi) 

OESC  *  (NOT  AVAILABLE) 

-  LENGTH*  3S  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

- CAN'3E_CALLt 0  3T* . 

OMINIT 

— - CAN  CALi.  THE  FOLLOWING* 

ITOJ. 


RLEQ.RM  ENTRY  CLASS*  MAIN  SEGMENT*  (SO) 

- 0fSC'«~<NO'r  AVAILABLE)  . 

LENGTH*  42  LANGUAGE*  COMPASS 

- HAS  NO  secondary  ENTRY  POINTS 

can  BE  CALLEO  JY* 

_  PUT. SO  WmR.SO 

CAN  CALL  THE  FOLLOWING* 

ERR. RM 

“'RMUO.SJ - ENTRY  CLASS*  SECONDARY  SEGMENT*  (SO) 

OfSCS  (NOT  AVAILABLE) 

-  SECONDARY  ENTRY  POINT  FOR  »  FSU.SQ 

CAN  3E  CALLED  3YS 

” - GET7SQ . . 

— RMU2.S0  ENTRY  CLASS*  SECONDARY  SEGMENT*  (SO) 

OESC*  (NOT  AVAILAJLE) 

- - -  SECONDARY  ENTRY  POINT  FOR  *  FSU.SQ 

CAN  9E  CALLEO  9Y* 

- GET.'SO . . 

RH.CI 0  ENTRY  CLASSI  SECONDARY  SEGMENT*  (SO) 

DFSC  *  (NOT  AVAILABLE) 

-  SECONDARY  ENTRY  POINT  FOR  *  CIO.RM 

CAN  0 C  CALLEO  9YI 

- DT’EV'.SD'"- OPEY.'SO — GET . SQ  “  PUT.SQ  REW.SQ 

WEOX.SQ  ERR. RM  CLSF.SQ  CLSV.SQ  WAR.SQ 


RM.RCL A 


ENTRY  CLASS*  SECONDARY  SEGMENT* 
OESC*  (NOT  AVAILA3LE) 


(SO  > 


“RM.RCLP” 


“RNGDEL 


SECONDARY  ENTRY  POINT  FOR  »  CIO.RM 
CAN  BE  CALLED  BY* 

GET. SO  8TRT.S0 _ PUT.SQ  ERR.RM  CLSF.SQ 

WAR.'SQ 

ENTRY  CLASS  *  SECONDARY  SEGMENT!  (SO) 

OESC l  (NOT  A V AILA3L E) 

SECONDARY  ENTRY  POINT  FOR  t  CIO.RM 
CAN  BE  CALLED  BY  1 

- GET.'SQ  PUT.SQ  '  '  " 

ENTRY"  CLASS  i  "  MAIN  SEGMENT*  (DEI) 

OESC*  OELETE  ALL  NODES  AND  ELEMENTS  RANGES 
LENGTH*  101  LANGUAGE*  FTN 

MAS  NO  SECONDARY  ENTRY  POINTS 

“CAN "BE- CALLEO  3Y*  . 

DETABLE 

“CAN  CALL  THE  FOLLOWING* 

ICKRNG  PUTEOT  PUTLS  IDISER  DELETE 

- ICHKEO  C  OMPAC  IOBRIT 

TNT RY~COSS’’l  MAI R - SEGMENT*  (DEI) 

OESC*  DISPLAY  NODES  AND  ELEMENTS  IN  TYPE-IN  RANGE 
“LENGTH*  107  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY* 

DET  ABLE 

~7TAn“  CALL  THETOLUOW ing*  . 

ICKRNG  PUTEQT  PUTLS  IORW  IDISER 

-  ICHKEO  COMPAC  IDBRIT  ACTIVA 


RSCXY 


“RSETMG 


‘  ENTRY  CLASS*  SECONDARY  SEGMENT*  (DEAD) 

OESC*  X-Y  PLOTS  -  RESCALE  ON  X-Y  PLOT  TO  A  3SOLUTE  MINS  AND  MAXES 
"SECOND ARY~ENTRY  POINT  FOR  1  PROCXA 
CAN  BE  CALLEO  BY* 

~ - DETABLE  . . 

ENTRY  CLASS*  MAIN -  -  SEGMENT*  (M810) 

DESC  *  A  060/IGS  -  INITS  MODE  ARRAY  AND  SCALING  INTERFACE  W/  INTERTEK 

TENGTHI - Zl<* - LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

"CAN  BE “CALLEO  BY*  . 

CNTINT  INITXV 

"CAN“  CALL  THE  FOLLOWING*  -  - 
SCALST 


RSPT.SQ 


RWRITER 


ENTRY  CLASS*  SECONDARY  SEGMENT*  ( 

OESC*  (NOT  AVAILABLE) 

SECONDARY  ENTRY  POINT  FOR  *  CLSF.SQ 
CAN  BE  CALLEO  3Y* 

OPEN. SO  OPEX.SQ  GET.SQ  REW.SQ 

ENTRY  CLASS*  MAIN  SEGMENT*  ( 

OESC  *  (NOT  AVAILABLE)  ' 

LENGTH*  11  LANGUAGE*  COMPASS 

HAS  NO  SECONOARY  ENTRY  POINTS 


CL3V.  SO 
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RWRITE 


SEGHENT! 


(D80) 


I 


CAN  BE  CALLEU  BY! 

DMWRITC  OMFlSH 
CAN  CALL  THE  FOLLOWING! 


"CPC 


ENTRY  CLASS  !  MAIN 
OESCI  (NOT  AVAILABLE) 

LENGTH!  6  LANGUAGE! 

HAS  NO  SECONDARY  ENTRY  POINT 
CAN  BE "CALLED  BY f 
OMWRITE 

CAN  CALL  THE  FOLLOWING! 

CPC 


COMPASS 

S 


SCALST  ENTRY  GlAGSI  MAIN  SEGMENT!  (SO! 

- DESCi  'SCALING-^" SET  XJP  SCALE  FACTORS 

LENGTH!  70  LANGUAGE!  FTN 

— * - HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  BY  I 

MOFILL  MOOCH  SET1  R.SETMG 

THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 


SCALZZ  ENTRY  CLASS!  MAIN  SEGMENT*  (1610) 

_  _  OESC «  (NOT  AVAILABLE! 

LENGTH!  66  LANGUAGE!  FTN 

has  no  secondary  entry  points 

can  BE  CALLED  i3Yl 
MET  AZZ  'Vi'NZ'Z 
CAN  CALL  THE  FOLLOWING! 

ALOGIO. 


SCAN  "  '  ENTRY  CLASS!  IAIN  SEGMENT!  deiAl) 

OESC!  CONTOUR  -  TRACE  THRU  TRIANGULAR  GRID  TO  EXTEND  CONTOUR  LINE 
LENGTH!  465  “LANGUAGE!  FTN 
HAS  NO  SECONDARY  ENTRY  POINTS 
'  CAN  QE  CALLEO  BY! 

CNTOR 

CAN  CAlL  The  FOLLOWING! 

LINESG  NUMoKG 


SEGMTG  ENTRY  CLASS!  MAIN  SEGMENT!  (M01ZOI 

DESC!  DRAW  GROUP  OF  LINE  SEGMENTS 
LENGTH!  Z7  LANGUAGE!  FTN 

“ — ”  -  H«S  NO  SECONDARY  ENTRY  JOINTS 

CAN  UE  CALLED  BY! 

- GRIDG  XAariC  . 

CAN  CALL  THE  FOLLOWING! 

- -  -  METAZZ 


"SELATC1  ENTRY  CLASS!  SECONDARY  SEGMENT!  (M3Q) 

OESC!  (NOT  AVAILABLE! 

- SECONDARY  ENTRY'  POINT  FOR  f  SELATT  ~  ‘ 

CkN  BE  CALLEO  Bv ! 

Eraser 

~SELATC  ENTRY  CLASS!  SECONDARY  SEGMENT!  (M30! 


< 

\ 


136 


D£SCI  OISPLAY  NEXT  QATCH  OF  ATTRIBUTE  NAHES 
SECONDARY  ENTRY  POINT  FOR  1  SLLATT 
CAN  BE  CALLED  3Y1 

ACTaTT  *  ...  . -  -  — 

SELATT  ENTRY  CLASS!  MAIN  SEGMENT!  Cn30> 

OESC  *  DISPLAY  ATTRIBUTE  NAMES  FOR  PICKING 
‘  LENGTH!  362  LANGUAGE!  FTN 
SECONDARY  ENTRY  POINTSt 

SELATC  SELATC1  SElATI  . “  *  ‘  "  -  “ 

CAN  BE  CALLED  3Y  i 
CETA3LE  ERASER 
CAN  CALL  THE  FOLLOWING! 

PAGER  GISU3F  GITEM  GIDELT  IOISER 

SETCAT  GUTEXT  GUSETP  ICCHR  NAMFNM 

- TGATT - 

~FEtATi  ENTRY  CLASS!  SECONDARY  SEGMENT!  CM30! 

OESC«  QISPLAY  ATTRIBUTE  NAMES  FOR  PICKING  WITHOUT  /DELETE  ATTRIBUTE/ 

SECONCARY  ENTRY  POINT  FOR  I  SELATT 
CAN  BE  CALLED  BY! 

DATABLE - ERASER - - .  — .  - 

SETCAT - ENTRY  CLASS!  MAIN -  SEGMENT!  (Gl?> 

OESC!  SET  CATEGORIES  FOR  CROSSHAIR  PICKS 
...  -  1ENGTH!  ~  -  2(j  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CAlLED  3V:  ~ . . . .  ~ . - 

GLINIT  ATTLST  TYPNAM  SELATT  TABACX 

TABPRC  ONPEN 

CAN  CALL  THE  FOLLOWING! 

GICAT  . .  . 

STTFETR - EnTrYTCL^S  ST-MAIN - "SEGMENT!  (DB1) 

OESC!  (NOT  AVAILABLE! 

LENGTH!  31  LANGUAGE!  FTN 

SECONDARY  ENTRY  POINTS! 

clreetr . . 

CAN  BE  CALLED  BY! 

DMFLSH  OMINIT . . . . 

CAN  CALL  THE  FOLLOWING! 

ITOJ.  —  “  - - 

“SETLN  ENTRY  CLASS!  MAIN"  -  SEGMENT!  (PR2) 

OESC!  SET  LINE  MODE  IN  DRAFTING 

LENGTH  I  5 - L  ANGUAGE!  FTN  . . . — 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY! 

prt  able  bostr  fixoat 
TmIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

_nS ETND  F^TRY- CCASS  !  MAIN - SEGMENT!  ( PR2) 

OESC!  SET  NODE  MODE  IN  DRAFTING 
LENGTH!  U  LANGUAGE!  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 


PRTA1LE  ORAWF.R  BOSTR  FIXOAT 

THIS  program  does  not  invoke  any  other  programs 

'ENTRY" CLASS  I  MAIN"  SEGMENT!  COBO) 

DESC I  (NOT  AVAILABLE! 

LENGTH!  6  LANGUAGE!  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALL  EO  BY | 

DMRLOO 

This  program  Dots"  not  invoke  any  other  programs 

£NT?y  "CLASS !  MAIN  SEGMENT!  (M810I 

OtSCt  40607IGS  - 

LENGTH!  275  LANGUAGE!  FTN 

HAS  NO  SECONOAhY  ENTRY  POINTS 

"Can  be  Called  by:  . .  . . 

PROCXA  INTFLG  qikgrf  TITLEG  gri OG 
LABELS 

CAN  CALL  THE  FOLLOWING! 

ALOGIO.  XTOY. 

TnTrY'CITSST- I MAIN  SEGMENT!  (  M  8 13  0  I 

OESCI  SET  UP  GRID  SPACE  FOR  X-Y  PLOT  OR  CONTOUR  PLOT 
LENGTH!  251  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
“CAN  BE  CALLED  BY! 

PROCXA 

"Can'Cal l  7 hC“Foll oWT nGT  " 

OBJCTG  SU3JEG  GOTOER.  ITOJ.  ALOGIO. 

ENTRY  CLASS!  MAIN  SEGMENT!  ( G 1 3 > 

DESC!  MOD  PICTURE  -CALCULATE  NEW  PERSPECTIVE  VIEW 
LENGTH!  260  _  LANGUAGE!  FTN 

HAS  WSf CONOARy  ENTRY  POINTS 
CAN  BE  CALLEO  BY! 

FRONTVU  SIDEVU  TOPVU  SVIEWP  SROTET 

GRFNIT  INIT2D  INIT3N 

CAN  CALL  THE  FOLLOWING! 

GC30A  SORT.  COS .  SIN. 

ENTRY  CLASS!  MAIN  SEGMENT!  (MSI 

DESCl  MOO  PICTURE  -  RESET  THE  VIRTUAL  WINDOW  AND  PICTURE  LIMITS  TO  EXIS 
LENGTH!  136  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY! 

MORCNT"  ~M  OZCRS  HOZPLS  MOSPLT  MOSOS 

CLRPIC  MOBOTH 

CAN  CALL  THE  FOLLOWING! 

GIZOOM  GOTOER. 

ENTRY  CLASS!  main  SEGMENT!  (MSI 

UFSCT-SrALING’ -"  GET  THE  "DISPLAY  SPACE  .  OR  THE  MODEL  FROM  A  SUBSTRUCTURE 
LFNGTHI  17  LANGUAGFI  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  O ALL  SO  BY  I 
CLRPIC 


CAN  CALL  THF  FOLLOWlNGl 
SCALST  GETLIM 


~ S fffLT  E NT RY~CL asst  MA IN  SEGMENT!  ( M8 141 ) 

OESC I  A  SHELL  SORT  INCREASING  X  AND  DECREASING  Y 
_  LENGTHt  64  LANGUAGE:  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY: 

GET  CNT 

THTS~PROGRA  KUOES  NOTINVOKE  ANY  OTHER  PROGRAMS 

SIDEVU  ENTRY  CLASS:  MAIN  SEGMENT:  (GL3» 

OESC :  MOD  PICTURE  -  SET  Y -l  PLANE 

- .  "LENGTH:  "  13  LANGUAGE:  FTN 

HAS  NO  SECONOARY  ENTRY  POINTS 
CStf-gc— CALLED  3Yt 
GLTA3LE 

T:AN  CALL  THE  FOLLOWING: 

MORORW  SET VU 


SINCOS  =  ENTRY  CLASS J  MAIN  SEGMENT:  (SO) 

OEsCT  TRIGONOMETRIC'SINE  OR  COSINE  OF  X.  OPT  =  ALl. 
LENGTH:  6b  LANGUAGE!  COMPASS 

~  secondary  entry  points: 

COS.  SIN. 

ThIS  ENTRy  IS  noT  1nvokeo  By  ANY  OTHER  PROGRAMS 
CAN  CALL  THE  FOLLOWING! 

SYSiST .  “ 

SIN. - ENTRY  CLASS!  SECONOARY  SEGMENT!  (SO) 

DESC :  (NOT  AVAILABLE) 

SECONOARY  ENTRY  POINT  FOR  :  SINCOS= 
can  be  calleo  3v: 

- - SROTcf  SETVU - GC30A  CNVTOC 

'SKFL.SQ  ENTRY  CLASS:  MAIN  SEGMENT  *  (SO) 

OESC:  (NOT  AVAILABLE) 

_  LENGTH!  51  LANGUAGE:  COHPASS 

HAS  NO  SECONOARY  ENTRY  POINTS 

- CAN- 3E_ CALLEO'SYir - - -  ' 

FORSYS= 

CATV  CALL  THE  FOLLOWlNGl  . . 

SRGT.SQ  DXIT.SQ  ERR.RM 


SKGT.SO  ENTRY  CLASS!  SECONOARY  SEGMENT!  (SO) 

‘  BE$cT-fNor  available)-' . 

SECONOARY  ENTRY  POINT  FOR  I  GET .SQ 
"  "  CAN  3E  CALLEO  BY! 

SKFL.SQ 


SORTXY  ENTRY  CLASS!  MAIN  SEGMENT!  (0E4Q) 

OESCT-X-rTF>COTS "-'SORT  X-  OR-Y-  DATA 
LENGTH!  75  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BYI 
_____ -  PROCXA  - 
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This  PROGRAM  does  ‘JOT  invoke  any  other  programs 


ENTRY  CLASSI  MAIN  SEGMENTI  (063) 

OESC •  (NOT  AVAILABLE I 

LENGTH!  47  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
CAN  CALL  The  FOLLOWING! 

IOBFNO 


ENTRY  CLASS!  SECONOARY  SEGMENT!  (M33) 
OESC i  (NOT  AVAILABLE) 

SECONDARY  ENT^Y  POINT  FOR  !  SPS3L 
CAN  BE  CALLEO  6Y1 
OETA BLE 


ENTRY  CLASS!  MAIN  SEGMENTI  (M33) 

OESC  t  X-Y  PLOTS  -  SET  UP  TYPE-IN  OF  NEK  PLOT  SYMBOL 
LENGTH!  35  LANGUAGE!  FTN 

“ SECONDARY  ENTRY  POINTS! 

SPSOLC 

TAn  SeCALLEO- SY1 
0ETA3LE 

'  CAN  CALL  THE  FOLLOWING!  . ' 

PUTEOT 


_ENJRY__CLASS  1  J^AIN_  SEGMENT!  (SO) 

OESC!  COMPUTE  THE  SOUARE  ROOT  OF  X.  OPT  =  ALL« 
LENGTH!  43  LANGUAGE!  COMPASS 

SECONOARY  ENTRY  POINTS! 

SORT. 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  PROGRAMS 
CAN  CALL  THE  FOLLOWING! 

SYSfST.  "  .  . 

“ENTRY  CLASS!  SECONDARY  SEGMENT!  (SO) 

OESC!  (NOT  AVAILABLE! 

SECONDARY  ENTRY  POINT  FOR  I  SORT 
CAN  BE  CALLEO  BY! 

- EOSTR - PP.001 - STEST - ARROW  IARSET 

_  TME3H2  GCWORK  SETVU  GC30A  CNVT0U 

ENTRY  CLASS!  MAIN  SEGMENT!  (GL4) 

_  DESCi  MOO  PICTURE  -  ROTATE  IMAGE  FROM  HOST 
LENGTH!  221  LANGUAGE!  FTN 

has  notecdnoary-fntry  points  '  . . . . 

CAN  BE  CALLEO  3Y ! 

GLl  ABLE 

CAN  CALL  THE  FOLLOWING! 

. MORORW  PUTEOT  IOISER  SETVU  GCMAT 

COS.  SIN.  ICHKED  COMPAC 


ENTRY  CLASS!  MAIN  SEGMENT!  (GL4) 

"OESC!  MOO  PICTURE  -  PUT  CURRENT  ROTATION  ANGLES  AND  ASK  FOR  INCREMENTS 
LENGTH!  37  LANGUAGE!  FTN 

'HAS  NO  SECOND ARY' ENTRY  POINTS 


can  be:  calleo  av« 
gltable 

CAN  CALL  THE  FOLLOWING* 

PUTeDT  I  beaut  ' 


SSAOFF 


ENTRY  CLASS*  MAIN  '  SEGMENT!  (DE7 

OESCI  DEACTIVATE  ACTIVE  3EAC.S  ON  A  LEVEL 
LENGTH!  103  LANGUAGE!  FTN 
HAS  NO  SECONOARV  ENTRY  POINTS 
“CAN'  Be  CALLED  BY  f 
PETA3LE 

CAN  CALL  THE  FOLLOWING! 

ELNCHK  PUTEOT  PUTAT  IDISER  D 

ICHKEO  '  COMPAC  IDBORT  ICKATT 


DELETE 


“ SSOf 


'ENTRY  CO  SSI  MAIN - SEGMENT! 

DESC I  DEACTIVATE  PICKED  3EAC 
"TENGTHI  2  2  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
"CAN  BE  CALLED  BY  I 
DETA3LE 

HCSN'C  A  LU'THE~F0L  COWING! . . 

DACTS  OELETE  MBEAD 


SSTACT 


ENTRY  CLASS!  SECONDARY  SEGMENT!  IM0I 

DESC I  SET  SUBSTRUCTURES  AS  THE  LEVEL  TO  WORK  ON 

SECONDARY  ENTRY  POINT  FOR  !  STRACT 

‘Can  be'  caLleo'byi . 

GET  ABLE 


STARTA 


ENTRY  CLASS!  SECONDARY  SEGMENT! 
DESC*  (NOT  AVAILABLE) 

SECONDARY  ENTRY  POINT  FOR  I  STARTM 
CAN  BE  CALLEO  BY! ‘ 

EXSTAR 


l DRIVE ) 


STARTM 


ENTRY  CLASS!  MAIN  SEGMENT!  (DRIVE) 

OESCI  START  UP  THE  MENU  ON  THE  SPECIFIED  LOCAL  FILE  NAME 
LENGTH!  233  LANGUAGE!  FTN 
SECONOARY'TNTRY'POI  NTS  t  • 

STARTA 

“CAN  BE  CALLED  3Y1  - - - 

EXINIT  DEINIT  PRINIT  PPINIT  MENNIT 
~ CAN  CALL  THE  FOLLOWING! 

EXTABLE  OETAdLE  PRTA6LE  PPTA8LE  ERASER 
7CCHR  PERMPR — TGETR  DMINIT  RETURN 


MENNIT 


PPTA8LE 

DMINIT 


ERASER 

RETURN 


STEST 


ENTRY  CLASS!  MAIN  SEGMENT!  (M8140) 

DESC«  CONTOURING  PACKAGE  CRITERIA  TESTER 
LENGTH!  317  LANGUAGE!  ftn 
HAS  NO  3FCONO ARV  ENTRY  POINTS 

TAN'CE  CALLED  BY! - - 

TMESH3  TME5H2 
CAN  CALL  THE  FOLLOWING! 

SORT. 


I 


141 


* 


STOP.  ENTRY  CLASS *  SECONDARY  SEQUENT*  (SO ) 

OESC *  (NOT  AVAILABLE) 

SECONOARY  ENTRY  POINT  FOR  I  FORSYS= 

- CAN  BE  CALLED  3Y( 

ORIVER  ExSTAR  GLSTOP 

STRACT  ENTRY  CLASS*  MAIN  SEGMENT*  (MO) 

-  OESC:  SET  STRUCTURES  AS  THE  LEVEL  TO  WORK  ON 

LENGTH!  33  LANGUAGE*  FTN 

secondary  "Entry  points* 

SSTACT  ELEACT  NOOACT 

“  CAN  BE  CALLED  3Y« 

OETABLE 

"  '  This  program  does  not  invoke  any  other  programs 

'SUBjEG  ENTF.Y'-CLA'SS't'llA'rR-  SEGMENT*  (M6132) 

OESC*  SET  SUBJECT  space  for  x-y  plot  or  contour  plot 

. . .  '  '  LENGTH*  122  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  BY: 

CN  TOR  PROCXA  SETUPG 

£¥n  call- THE" following* 

ALOGl 0 . 

SVIEWP  ENTRY  CLASS*  MAIN  SEGMENT*  ( GL  3) 

OESC*  PROCESS  VIEW  TYPE-IN 
LENGTH!  203  LANGUAGE*  FTN 

HmS"  NO' SECO'NOARY'  ENTRY  POINTS 
CAN  BE  CALLED  BY* 

GLTA3LE 

CAN  CALL  THE  FOLLOWING* 

moROkw  puteot  ioiser  setvu  ichked 

_ C  OMPAC  COMPACS _ 

SVIEW  entry  class:  main  SEGMENT*  ( GL  3) 

■  OESC :  DISPLAY  view  TYPE-IN  VALUES 
LENGTH:  bS  LANGUAGE*  FTN 

. — -  hAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  By: 

- GL TABLE - 

CAN  CALL  THE  FOLLOWING* 

PUTEOT  IBEAUT 

SWITCHS  ENTRY  CLASS*  SECONDARY  SEGMENT*  (DRIVE) 

OESC*  SAVE  ADDRESS  OF  SUBROUTINE  TABLE  AND  DECISION  FUNCTION 
SECONDARY  ENTRY  POINT  FCR  *  SWITCH 
CAN  BE  CAlLEO  BY i 

ExTAGLt  OETABLE  ORTA8LE  PPTA&LE  GLTA8LE 
GLINIT 

SWITCH  ENTRY  CLASS*  MAIN  SEGMENT*  (DRIVE) 

DESC*  CALL  SUBRGUTINE'SPECIFIED  IN  COMMAND  TREE 
LENGTH!  20  LANGUAGE*  COMPASS 

""  secondary  entry  points* 

SWITCHS  ISWTCHO 
—  CAN  BE  CALLEO  BY* 
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ori  vl:r 

This  program  does  not  invoke  any  other  programs 

" SYSAIO  =~~  ENTRY- UAS3T-M& IN  SEGMENT!  (SO) 

OESCI  LINK  BETWEEN  SYS=AIO  ANO  INITIALIZATION  COOE. 
LENGTH!  1  LANGUAGE!  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  3E  CALLED  3v l 
08.10.  SYS-1ST 

- THIS' PROGRAM- DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

SYSAIO  •  ENTRY  CLASS!  SECONDARY  SEGMENTl  I G 1 3» 

OESCI  (NOT  AVAILABLE) 

SCC0Nl)A^y  ENTRY  POINT  FOR  I  SYS=AIQ 
CAN  BE  CALLED  BY I 

- ATAN?  . -*• 

“syseno.  ““entry  classi  secondary  segment!  tso> 

OESCI  (NOT  AVAILABLE) 

SECONDARY  ENTRY  POINT  FOR  !  FORSYS= 

CAN  BE  CALCEO  3Y! 

- system - - -  ■ 

“SYSERR.  ENTRY  CLASS  I  SECONDARY  SEGMENT!  (SO) 

OESCI  (NOT  AVAILABLE) 

SFCONCARY  ENTRY  POINT  FOR  I  FORSYS= 

CAN  BE  GALLEO  BY! 

“oa.'io.-  got oer=”  System 

sysej.  entry  class(  secondary  segment*  (so> 

OESCI  (NOT  AVAILABLE) 

secondary  entry  point  for  i  forsys= 

CAN  BE  CALLED  BY! 

.  SYSTEM -  “ 

■“SYSTEM  ENTRY  CLASS!  MAIN  '  ’  “  SEGMENT!  (DBO) 

OESCI  USER  CALLABLE  ERROR  PROCESSOR. 

IFNGTHI  21  LANGUAGE!  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 

- CA3T"BE“CAUlTD-gYI  - -  "  ‘  ‘ 

OMGTBO  OMRL0O  OMSTGT  OMINIT 

CfiN  cftLL  THE  F0U_0HJNGt 

SYSEND.  SYSE3.  SYSERR.  WEOS. SQ 

SYS1ST.  ENTRY  CLASS!  SECONOARY  SEGMENTl  (31) 

DESC3-TN0T- AVAXLA8LE)  . . 

SECONUARY  ENTRY  POINT  FOR  I  SYS=1ST 
“““  ‘  CAN  BE  CALLED  BY! 

ACOSIN -  S  YS  =  A 1 0  SORT  SINCOS=  ALOG 

‘  EXP  '  ‘  ‘ 

“SYS  =311  0 - ETJTRY“Cl'A  jST“  MAIN - SEGMENT!  (Gi  3) 

OESCI  A'JXILIAkY  MATH  LIBRARY  LINK  FOR  ERRORS. 

LENGTH  I  7  LANGUAGE!  COMPASS 

SECONOARY  ENTRY  POINTS! 

SYSAIO. 


this  entry  is  not  invoked  by  any  other  programs 

CAN  CALl  the  FOLLOWING! 

_ SY  SI y . _ MORGUE . 

ENTRY  CLASS!  MAIN  SEGMENT!  (SI) 

DE  SC  I  MATH  LIBRARY  LINK  TO  ERROR  MESSAGE  PROCESSOR. 
LENGTH!  62  LANGUAGE!  COMPASS 

SECONDARY  ENTRY  POINTS! 

SYS1ST.  MORGUE. 

This" ENTRY  IS  not  INVOKED  by  ANY  OTHER  PROGRAMS 
CAN  CALL  THE  FOLLOWING! 

S Y  S A 10  = 

Entry  class i 'secondary  segment!  (so) 

DFSCl  (NOT  AVAIlApLE) 

SECONDARY  ENTRY'  POINT' FOR ' ! '  SYS.RM 
CAN  BE  CALLEO  BY! 

COMPIO  08.10.  FORSYS=  ERR.RM  YIELO= 

COPY  F  L  PERMFIL  CLOCK=  REQUEST  RETURN 


SYS.RM  ENT PY  CLASS*  MAIN  SEGMENT!  (SO) 

OESC'i  PROCESS  SYSTEM"  REQUEST. 

LENGTH!  AO  LANGUAGE!  COMPASS 

SECONDARY  ENTRY  POINTS! 

SYS=  WN9=  MSG= 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  FROGRAMS 
THIS  PROGRAM  DOFS  NOT  INVOKE  ANY  OTHER  PROGRAMS 


TABACT  ENTRY  CLASS!  MAIN  SEGMENT!  (M31) 

.  OESC 1  X-Y  PLOTS  -  ACTIVATE  TABLES  F OR  X-Y  PLOT 

LENGTH!  53  LANGUAGE!  FTN 

"HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y ! 

DETA JLE  "  '  . . 

CAN  CALL  THE  FOLLOWING! 

'  IOISFR  0  FORT  I03RIT  ACTIVA  IDBFTY 

"TUffACX  ENTRY  CLASS*  MAIN  SEGMENT*  (M31) 

OESC!  X-Y  PLOTS  -  GET  TABLE  FOR  Y-AXIS 
TENGTHI  23  LANGUAGE*  FTN 

SECONDARY  ENTRY  POINTS* 

___  -  TABACY  -  ■  - - -  - 

CAN  BE  CALLEO  BY* 

DETABLE  '  - - - - 

CAN  CALL  THE  FOLLOWING* 

DTACTSN - SETCAT . . . . 

TABACY  ENTRY  CLASS!  SECONDARY  SEGMENT!  (M31) 

OESC!  X-Y  PLOTS  -  GET  TABLE  FOR  X-AXIS 
SECONDARY  ENTRY  POINT  FOR  !  T A B ACX 
CAN  BE  CALLED  BY  I 

DET'ABL'E - -  '  ~ 

"T1A0DEC  ENTRY  CLASS!  MAIN  SEGMENT!  (0E42) 

OESC!  X-Y  PLOTS  -  DELETE  CURVE  FROM  X-Y  PLOT 
~  LENGTHt  124  LANGUAGE!  FTN 


SYS=1ST 


SYS= 
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has  no  seconoary  entry  points 
can  ee  called  qys 
OETAuLE 

CAN  CALL  THF  FOLLOWING!  “ . 

TA8R0R  CLRPIC  GIDELT 

TABOM  ENTRY  CLASS  1  MAIN  SEGMENTl  »H31> 

OFSCl  X-Y  PLOTS  -  PROCESS  TYPE-IN  TOR  PART  OF  TABLE  TO  PLOT 
LENGTH!  107  LANGUAGE!  FTN 

HAS  NO  SECONDARY “ENTRY  POINTS 
CAN  BE  CALLEO  BY l 
OET  ABLE 

CAN  CALL  THE  FOLLOWING! 

PUTEOT  IL'IGER  ICHKEO  COMPAC 

TBS  BIND - ENTRY"CL“ASST~MAI'l - SEGMENTl  C0E41) 

OESC!  X-Y  PLOTS  -  USE  INOEX  OF  TABLE  ON  AXIS 
—  LFNGTH,  16  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y! 

CETA3LE  TA3VAL 

- C  AN'C  ALL'  THE-  FOLLOWING  I . .  . . 

PROCX  A  PF.OCYA 


TABLIN  ENTRY  CLASS!  MAIN  SEGMENTl  (DEAD 

DESC I  X-Y  PLOTS  -  PROCESS  PICK  OF  CURVE  ON  X-Y  PLOT 
LENGTH!  20  LANGUAGE!  FTN 

HAS"  NO  'SECONDARY-ENTRY  POINTS 
CAN  BE  CAlLEO  3Y| 

_  —  oetable 

THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

TABPEN  ENTRY  CLASS!  MAIN  SEGMENTl  (G12) 

OESC l~X-Y  pUOTS--— ACTIVATE  LINES  ON  GRAPH  FOR  PICK 
LENGTH!  10  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3YI 

DETABLE  '  -  - 

CAN  CALL  THE  FOLLOWING! 

ON  PEN  A - - 

~ T ABPRC  ENTRY  CLASS!  MAIN . "  -  SEGMENT!  (M31) 

OESC!  X-Y  PLOTS  -  PROCESS  TABLE  NAME  ANO  DISPLAY  DIMENSIONALITY  OF  TABL 

- LENGTH!  147 - LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 

CATT'Br" CALLEO  BYT - - - -  ’  .  . . 

OETABLE 

CAN  CALL  THE  FOLLOWING! 

PUTEOT  OACTS  IDISER  SETCAT  IBEAUT 

MBEAD  ID3R0W  IOBCOL  ID30EP  IOBNDN 

"TABRDR - ETITRY-enrsST- SECOND  ARY- “  SEGMENTl  (DE40> 

OESC!  X-Y  PLOTS  -  REORAW  ONE  LINE  ON  GRAPH 
SECONDARY  ENTRY  POINT  FOR  I  PROCXA 
CAN  8E  CALLEO  9Y! 

OETABLE  T  ABDEL 
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/ 


TA8SCL 


EmTSy  ClASSS  MAIN  SEGMENT!  (M31) 

OESC<  X-Y  PLOTS  -  PROCESS  SCALE/OFFSET  TYPE-IN 
LENGTH  I  G  6  LANGUAGE!  ETN 

HAS  NO  SFCONDARY  ENTRY  POINTS 
CAN  BE  CALLEO  OYl 
GET  ABLE 

CAN  CALL  THE  FOLLOWING! 

PUTEOT  1 0 1  St!  R  ICHKED  COMPAC 


TAGSCX 


ENTRY  CLASS!  ^AiN  SEGMENT!  (M3i> 

OESCi  X-Y  PLOTS  -  PUT  UP  CURRENT  LINE  SCALE/OFFSET 
LENGTH!  53  LANGUAGE!  FTN 

SEC ON  GARY  CNTkY  POINTS! 

TAHSCY  _ 

TAN"  PE  "CAlL'EO"  By  i 
OFTA'jLE 

Can  Call  the  following! 

PUTEOT  IBEAUT 


(X-AXIS) 


T ABSCY 


ENTRY  CLASS!  SECONDARY  SEGMENT!  (M31) 

'OtSC !~ X-Y  PLOTS  -  PUT  UP  CURRENT  LINE  SCALE/OFFSET 
SECONDARY  ENTRY  POINT  FOR  !  TABSCX 
CAN  BE  CALLEO  3V ! 

OET  ABLE 


(Y-AXIS) 


TABYAL 


EnTFY  CLASS!  MAIN  SEGMENT!  (DE41) 

- OESCi'-yAY  PLOTS  -"“USE  VALUE  OF  TABLE  ON  AXIS 

LENGTH!  15  LANGUAGE!  FTN 

-  has  no  secondary  entry  points 


CAN  OF  CALLEO  BY! 
0ETA3LE 

CAN  CALL  THE  FOLLOWING! 
"T  A  BIND 


“ TAgXQ  ENTRY  ClASS!  SECONDARY  SEGMENT!  (M31) 

OESC*  X-Y  PLOTS  -  SORT  X  DECREASING 

-  SECONDARY  cnTRY  POINT  FOR  !  TABXI 

CAN  BE  C  A  L  L  c  0  SY: 

- OE  TABLE*"" 


"TABXI 


TABXN 


“"ENTRY  CLASS!  MAIM  SEGMENT! 

Of  CL  !  X-Y  PLOTS  -  SORT  X  INCREASING 
“'LENGTH!  37  LANGUAGE!  FTN 

SlCCNJARY  ENTRY  POINTS! 

— * - TA9YI - TABXD  TADYC  TABXN 

CAN  BE  CALLED  JYI 


( M  3  1 ) 


TA9YN 


GET  ABLE  .  „ 

THIS  PROGRAM  OOtS  NOT  INVOKE  ANY  OTHER  FROGRAMS 


ENTRY  CLASS!  SFCONOARY  SEGMENT!  (M31) 
DESC  <  X-Y'PIOTS  -  00  NOT  SORT  X 
SECONDARY  ENTRY  POINT  FOR  !  TABXI 
CAN  BE  CALLED  3Y ! 

Ct TABLE 
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TA9XYM 


TA9XYP' 


TA9Y0 


TA6YI 


TABYN 


entry  class*  main  segment*  ( m3 i > 

Ot  SC  *  X-Y  PLOTS  -  PUT  UP  CURRENT  MINS  ANO  MAXES  FOR  X-Y  PLOT 
LENGTH*  L4  LANGUAGE*  F  TN 

HAS  NO  SECOnOARv'ENTRY  POINTS 
CAN  BE  CALLEO  3Y* 

0ETA6LE 

CAN  CALL  THE  FOLLOWING* 

PUTEDT  IQEAUT 

ENTRY"  CL  A5ST_MA  IN  SEGMENT*  (M31) 

OESC*  X-Y  PLOTS  -  PROCESS  TYPE-IN  OF  NEW  MINS  ANO  MAXES 
LENGTH*  73  LANGUAGE*  PTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  be  CALLED  3Y* 

Of  TABLE 

CTA'N'CALL  "THE” FOLLOWING* . 

PUTEOT  IOISER  ICHKEO  COMPAC  COMPACS 

ENTRY  CLASSI  SECONDARY  SEGMENT*  (M31) 

OESC*  X-Y  PLOTS  -  SORT  Y  DECREASING 
SECONDARY  ENTRY  POINT  FOR  *  TABXI 
'"CAN"  BE  CALLED  BY*  ‘  ~  ' 

OET  ABLE 

ENTRY  CLASSI  SECONDARY  SEGMENT*  (M31) 

DESC*  X-Y  PLOTS  -  SORT  Y  INCREASING 
SECONDARY  ENTRY  POINT  FOR  I  TABXI 
~CAN  BE  CALLED  3 Y  J 
OET  ABLE 

ENTRY  CLASSI  SECONDARY  SEGMENT*  (M31) 

DESC*  X-Y  PLOTS  -  DO  NOT  SOFT  Y 

SECONDARY  ENTRY  POINT  FOR  *  TABXI 

~ CAN  BE  CALLEO  BY!  - - 

OETABLE 


ENT RY  CLASS*  SECONOARY  SEGMENT* 
OESC*  RETURN  CURRENT  CLOCK  TIME 
SECONOARY  ENTRY  POINT  FOR  *  CLOCK= 

'CATT  BE  CACLED'BYJ  - - -  - 

EXSTAR 


TITLEG  ENTRY  CLASS*  MAIN  SEGMENT*  C M 8 11 » 

DESC*  CREATE  TITLE  FOR  X-Y  PLOT  OR  CONTOUR  PLOT 
LENGTH*  253  LANGUAGE*  FTN 
BAS' NO  "SECOND ARY' ENTRY  POINTS 
CAN  BE  CALLED  BY* 

PROCX A 

CAN  CALL  THE  FOLLOWING* 

IEGNDG  SET5MG 


"TMESH2" 


"ENTRY-CLASS'*  MAIN - SEGMENT*  (M8  142) 

OESC*  CONTOUR  -  CREATE  TRIANGULAR  MESH  OVER  CONVEX  HULL 
LENGTH*  1057  LANGUAGE*  FTN 
HAS  NO  SECONOARY  ENTRY  POINTS 
CAN  BE  CALLEO  BY* 


/ 


C  N  T  0  R 
Can  Call 
LTf  sr 


me  following! 

STEST  PUtLlN  SORT. 


T  MESH3 


( H8  141  ) 

TRIANGULATICN 


T  OPVU 


(GL3) 


TRIORO 


TRKOFF 


entry  class  i  main  segment! 

otsc»  contour  -  iteratively  i-iprove 

LENGTH!  64  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
_CAN  9E  CALLED  BY I _ 

'  CnTOR  . 

CAN  CALL  ME  FOLLOWING! 

'  STES7 

ENTRY  CLASS!  main  SEGMENT! 

OESCt  MOO  PICTURE  -  SET  X-Z  PLANE 

TENCTH!  13  ~  LANGUAGE!  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y« 

GLT ABLE 

CAN  CALL  THE  FOLLOWING! 

MORORW  SF.TVU 


ENTRY  CLASS!  MAIN  SEGMENT!  (M6141) 

oesc *  Contour  -  reorder  the  line  indices 

LENGTH!  41  LANGUAGE!  FTN 

H AS  NO  SECONDARY  ENTRY  POINTS 

_CAN  BE  CALLED  BY  l _ 

"CNTOR 

THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

ENTRY  CLASS!  MAIN  SEGMENT!  (Gil) 

□ESC!  TURN  OFF  TRACKING  SYMBOL  (CROSSHAIRS) 
J.ENGTH!  30  _  LANGUAGE!  FTN 

HAS'  NO~S  ECONO  ARY  ENTRY  POINTS 
CAN  BE  CALLED  BY! 

GLINIT  CLROUT  MXYP 
CAN  CALL  THE  FOLLOWING! 

gitrak 


>SJ  MAIN" 


'SEGMENT! 


OESCI  PUT  UP  NAMES  FOR  PICKING 
LENGTH!  264  LANGUAGE!  FTN 
SECONDARY  ENTRY  POINTS! 

~  TYPVAL 

CAN  BE  CALLED  3Y! 

- ERDOWM  EPUTON""  ERASER'  D 

CAN  CALL  THE  FOLLOWING! 

pager  gisubf  gitem  g 

GUTEXT  GUSFTP  IOINF  I 

"  IOBTYP  IDBNAM 


DACTSN  PUTNAM 


GIDELT 

ICCHR 


SETCAT 

IBEAUT 


~TyPVAC  “ 


"ETTRT-CL'A'SST-'SECO'JDARr —  SEGMENT!  (M3  0> 

OESC!  DISPLAY  THE  ALPHANUMERIC  STRING  IN  *N  AMES  * 

secondary  entry  point  for  !  typnam 

CAN  BE  CALLED  BY! 

QISPLB  ELNAM  LIBlN  ATTLST  ERASER 


/ 


UNPACK  Entry  ClASS*  MAIN  segment)  ( S  0  > 

DESC*  GET  NEXT  CHARACTER  FOR  XI  BEAUT  t 
LEnGTHT  23  LANGUAGE*  FTN 

HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  be  CALLED  3Y > 

EXECC  IPFUT  ICKACK 

THIS  PROGRAM  OOFS  NOT  INVOKE  ANY  OTHER  PROGRAMS 

dtoras  Entry- cl  ass  *  main -  segment*  ( so » 

OESC*  SCALING  -  CONVERT  USER  UNITS  TO  RASTERS 
LENGTH*  212  LANGUAGE*  FTN 

SEC  ON  CARY  ENTRY  POINTS* 

UTORAT 

CAN  BE  CALLED  0Y * 

MOAXES  DRELN  MXYI  METAZZ  LINZ? 

IORWEL  IORWNO  IDRWAT  ARROW 

THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

—UTORAT  “ENTRY  CLASS*  SECONDARY  SEGMENT*  (S0» 

DESC  *  SCALING  -  GET  X,Y,Z  FROM  PARAMETER  LIST  RATHER  THEN  COMMON  6L0CK 

- SECONDARY  ENTRY  POINT  FOR  *  UTORAS 

CAN  BE  CALLEO  BYI 

- — -  -  MOL  AX  '  ‘  —  - 

'WAR.  SQ  ENTRY  CLASS  *  MAIM -  “  SEGMENT*  (SO* 

OESCI  (NOT  AVAILABLE) 

LENGTH*  260  LANGUAGE*  COMPASS 
HAS  NO  SECONDARY  ENTRY  POINTS 
CAN  BE  CALLED  3Y * 

PUT. SO  WEOX.SQ 

'  CAN  CALL  THE  FOLLOWING* 

KM. CIO  RM.KCLA  RLEQ.RM 


WEOP.SQ  ENTRY  CLASS*  SECONDARY  SEGMENT*  (SO) 
OESCI  (NOT  AVAILABLE) 

SECONOARY  ENTRY  POINT  FOR  *  WEOX.SQ 
CAN  BE  CALLEO  BYI 
PUT. SQ 


WEOS.SO  ENTRY  CLASS  I  SECONDARY  SEGMENT*  (SO) 
QESCI  (NOT  AVAILABLE) 

SECONDARY  ENTRY  POINT  FOR  *  WEOX.SQ 

CAN  8E  cflLLE0  gy, 

SYSTEM 


WEOX.SQ  ENTPY  CLASS*  MAIN  SEGMENT*  (SO) 

~  "■  .  OESC  *  (NOT  AVAILABLE) 

LENGTH*  144  LANGUAGE*  COMPASS 
SECONDARY  ENTRY  POINTS* 

WEOP.SQ  WEOS.SO 

mrS'TNTRY— IS  NOT  INVOKED  BY  ANY  OTHER  FROGRAMS 
CAN  CALL  THE  FOLLOWING* 

ERR.RM  R  M. CIO  WAR.SQ 

'WNB=  ENTRY  CLASS*  SECONDARY  SEGMENT*  (SO) 
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(OBI) 


DISC*  (NOT  AVAILABLE) 

SEO\CA<Y  CNT-.Y  POINT  FOR  )  SYS.RM 
CAN  if  CAU.EO  OtJ 

- GET. SO'  PUT. SO  . . 

WRITES  ENTRY  'LASS *  MAIN  SEGMENT) 

OESC*  1NOT  AVAILABLE) 

-  LENGTH*  11  LANGUAGE)  COMPASS 

HAS  NO  SECONDARY  ENTRY  POINTS 

- CA  N'  Os;  CALLED  DY*  . 

OM  INI  T 

- -  - can  CALL  THE  FOLLOWING) 

CPC 


WRITE  EnT-y  CLASS *  MAIN  SEGMENT)  (DBO) 

- OESCt  '  (NOT 'AVAILABLE) 

LENGTH)  6  LANGUAGE)  COMPASS 

- HAS  NO  SECONDARY  ENTRY  POINTS 

CAN  BE  CALLED  BY S 
_______  Cm  WRITE 

CAN  CALL  THE  FOLLOWING) 

- -CpC  . . * . 

—XT Of* - ENTRY  CLASS)  MAIN  SEGMENT)  (SI) 

OESC*  REAL  TO  INTEGER  EXPONENTIATION. 

- LENGTH*  10  '  LANGUAGE)  COMPASS 

SECONDARY  ENTRY  POINTS* 

XTOI,  . .  '  . 

THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHFR  PROGRAMS 
- THIS  PROGRAM  DOES  NOT  INVOKE  ANY  OTHER  PROGRAMS 

"xToi. - Entry  class*  secondary  segment)  tsn 

OESC*  (NOT  AVAILABLE) 

SECONOARY'  ENTRY  POINT'FOR  )  XTOI= 

CAN  BE  CALLED  BY) 

6RI0G  "  LABEL G 

VTOY* - E  TRY  CLASS*  MAIN  SEGMENT*  (SI) 

OESC*  REAL  TO  REAL  EXPONENTIATION. 

- - CENCTH* - T - LANGUAGE*  COMPASS 

SECONDARY  ENTRY  POINTS* 

___  X  T  0  Y . 

THIS  ENTRY  IS  NOT  INVOKEO  BY  ANY  OTHER  PROGRAMS 
CAN  CALL  THE  FOLLOWING) 

ALOG.  EXP. 


XTOY.  ENTRY  CLASS*  SECONDARY  SEGMENT)  (SI) 

~~  OESC*  (NOT  AVAILABLE) 

SECONDARY  ENTRY  POINT  FOR  I  XTOY= 

CAN  BE  CALLEO  3Y) 

SETSMG 


XYERAS  ENTRY  CLASS*  MAIN  SEGMENT*  (M5> 

- - - DESCS  X_Y  PLOTS  -  ERASE  BUT  NO  DEACTIVATE 

LENGTH*  hZ  LANGUAGE)  FTN 

SECONDARY  ENTRY  POINTS* 


XYRETl  XYRET 
CAN  BE  CALLED  3Y  l 
OET ABLE 

"CAN  CALL"  THE- FOLLOWING!  . 

CLkPIC 

ENTRY  CLASS  t  SECONDARY  SEGMENT!  (M5) 

OESCl  X-Y  PLOTS  -  ERASE  AND  DEACTIVATE,  RETURN  TO  ACT  I V  AT E - ANO-DRAH  MOD 
SECONDARY  Entry  POINT  FOR  i  XYERAS 
'CAN  BE  "CALL  ED  BY I  "  ~ 

CETAiLE 

ENTRY  CLASS:  SECONDARY  SEGMENT:  IMS) 

OESC :  X-Y  PLOTS  -  ERASE  AND  DEACTIVATE,  STAY  IN  NO  ORAM  MO0E 
secondary  entry  point  for  t  xyeras 

■can  ■  OE'CALTEO"  3YI  . . 

0ETA3LE ^ 

ENTRY  class:  MAIN  SEGMENT:  ISi) 

OESC!  FORTRAN  CALLABLE  i-CALL  PROGRAM  PREEMPT 
LENGTH!  13  LANGUAGE!  COMPASS 

"SECONCA^V'CnT  RY~ POINTS! - 

IYIELD1 

THIS  ENTRY  IS  NOT  INVOKEO  BY  ANY  OTHER  PROGRAMS 
CAN  CALL  THE  EOLLOH ING  • 

'  IYIELDE  IYIELDS  IYIELO 

TnT1RY~ CLTS ST~ MAIN - SEGMENT!  CSl ) 

OESCl  (NOT  AVAILABLE) 

LENGTH!  '-(.37  LANGUAGE!  COMPASS 
SECONDARY  ENTRY  POINTS! 

IYIELDE  IYIELDS  IYIELO 
THIS  ENTRY  IS  NOT  INVOKEO  3Y  ANY  OTHER  PROGRAMS 
"CAN"  CACr"THE"  FOLLOWING! 

CLSF.RM  OPEN, RM  3YS=  MSG= 

ENTRY  CLASS!  MAIN  SEGMENT!  (SO) 

DESCI  (NOT  AVAILABLE) 

LENGTH!  101  LANGUAGE!  COMPASS 
"SECOND  ARY  FNTRY  ‘POINTS! 

GET  .1 

"THIS  ENTRY  IS  NOT  INVOKED  BY  ANY  OTHER  FROGRAHS 
CAN  CALL  THE  FOLLOWING! 

—  GXIT.SO 
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